{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.GuardDuty.GetInvitationsCount
(
getInvitationsCount
, GetInvitationsCount
, getInvitationsCountResponse
, GetInvitationsCountResponse
, gicrsInvitationsCount
, gicrsResponseStatus
) where
import Network.AWS.GuardDuty.Types
import Network.AWS.GuardDuty.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetInvitationsCount =
GetInvitationsCount'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getInvitationsCount
:: GetInvitationsCount
getInvitationsCount = GetInvitationsCount'
instance AWSRequest GetInvitationsCount where
type Rs GetInvitationsCount =
GetInvitationsCountResponse
request = get guardDuty
response
= receiveJSON
(\ s h x ->
GetInvitationsCountResponse' <$>
(x .?> "invitationsCount") <*> (pure (fromEnum s)))
instance Hashable GetInvitationsCount where
instance NFData GetInvitationsCount where
instance ToHeaders GetInvitationsCount where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetInvitationsCount where
toPath = const "/invitation/count"
instance ToQuery GetInvitationsCount where
toQuery = const mempty
data GetInvitationsCountResponse = GetInvitationsCountResponse'
{ _gicrsInvitationsCount :: !(Maybe Int)
, _gicrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getInvitationsCountResponse
:: Int
-> GetInvitationsCountResponse
getInvitationsCountResponse pResponseStatus_ =
GetInvitationsCountResponse'
{_gicrsInvitationsCount = Nothing, _gicrsResponseStatus = pResponseStatus_}
gicrsInvitationsCount :: Lens' GetInvitationsCountResponse (Maybe Int)
gicrsInvitationsCount = lens _gicrsInvitationsCount (\ s a -> s{_gicrsInvitationsCount = a})
gicrsResponseStatus :: Lens' GetInvitationsCountResponse Int
gicrsResponseStatus = lens _gicrsResponseStatus (\ s a -> s{_gicrsResponseStatus = a})
instance NFData GetInvitationsCountResponse where