module Network.AWS.CognitoSync.GetCognitoEvents
(
GetCognitoEvents
, getCognitoEvents
, gceIdentityPoolId
, GetCognitoEventsResponse
, getCognitoEventsResponse
, gcerEvents
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.CognitoSync.Types
import qualified GHC.Exts
newtype GetCognitoEvents = GetCognitoEvents
{ _gceIdentityPoolId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
getCognitoEvents :: Text
-> GetCognitoEvents
getCognitoEvents p1 = GetCognitoEvents
{ _gceIdentityPoolId = p1
}
gceIdentityPoolId :: Lens' GetCognitoEvents Text
gceIdentityPoolId =
lens _gceIdentityPoolId (\s a -> s { _gceIdentityPoolId = a })
newtype GetCognitoEventsResponse = GetCognitoEventsResponse
{ _gcerEvents :: Map Text Text
} deriving (Eq, Read, Show, Monoid, Semigroup)
getCognitoEventsResponse :: GetCognitoEventsResponse
getCognitoEventsResponse = GetCognitoEventsResponse
{ _gcerEvents = mempty
}
gcerEvents :: Lens' GetCognitoEventsResponse (HashMap Text Text)
gcerEvents = lens _gcerEvents (\s a -> s { _gcerEvents = a }) . _Map
instance ToPath GetCognitoEvents where
toPath GetCognitoEvents{..} = mconcat
[ "/identitypools/"
, toText _gceIdentityPoolId
, "/events"
]
instance ToQuery GetCognitoEvents where
toQuery = const mempty
instance ToHeaders GetCognitoEvents
instance ToJSON GetCognitoEvents where
toJSON = const (toJSON Empty)
instance AWSRequest GetCognitoEvents where
type Sv GetCognitoEvents = CognitoSync
type Rs GetCognitoEvents = GetCognitoEventsResponse
request = get
response = jsonResponse
instance FromJSON GetCognitoEventsResponse where
parseJSON = withObject "GetCognitoEventsResponse" $ \o -> GetCognitoEventsResponse
<$> o .:? "Events" .!= mempty