module Network.AWS.CognitoIdentity.UnlinkDeveloperIdentity
(
UnlinkDeveloperIdentity
, unlinkDeveloperIdentity
, udiDeveloperProviderName
, udiDeveloperUserIdentifier
, udiIdentityId
, udiIdentityPoolId
, UnlinkDeveloperIdentityResponse
, unlinkDeveloperIdentityResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CognitoIdentity.Types
import qualified GHC.Exts
data UnlinkDeveloperIdentity = UnlinkDeveloperIdentity
{ _udiDeveloperProviderName :: Text
, _udiDeveloperUserIdentifier :: Text
, _udiIdentityId :: Text
, _udiIdentityPoolId :: Text
} deriving (Eq, Ord, Read, Show)
unlinkDeveloperIdentity :: Text
-> Text
-> Text
-> Text
-> UnlinkDeveloperIdentity
unlinkDeveloperIdentity p1 p2 p3 p4 = UnlinkDeveloperIdentity
{ _udiIdentityId = p1
, _udiIdentityPoolId = p2
, _udiDeveloperProviderName = p3
, _udiDeveloperUserIdentifier = p4
}
udiDeveloperProviderName :: Lens' UnlinkDeveloperIdentity Text
udiDeveloperProviderName =
lens _udiDeveloperProviderName
(\s a -> s { _udiDeveloperProviderName = a })
udiDeveloperUserIdentifier :: Lens' UnlinkDeveloperIdentity Text
udiDeveloperUserIdentifier =
lens _udiDeveloperUserIdentifier
(\s a -> s { _udiDeveloperUserIdentifier = a })
udiIdentityId :: Lens' UnlinkDeveloperIdentity Text
udiIdentityId = lens _udiIdentityId (\s a -> s { _udiIdentityId = a })
udiIdentityPoolId :: Lens' UnlinkDeveloperIdentity Text
udiIdentityPoolId =
lens _udiIdentityPoolId (\s a -> s { _udiIdentityPoolId = a })
data UnlinkDeveloperIdentityResponse = UnlinkDeveloperIdentityResponse
deriving (Eq, Ord, Read, Show, Generic)
unlinkDeveloperIdentityResponse :: UnlinkDeveloperIdentityResponse
unlinkDeveloperIdentityResponse = UnlinkDeveloperIdentityResponse
instance ToPath UnlinkDeveloperIdentity where
toPath = const "/"
instance ToQuery UnlinkDeveloperIdentity where
toQuery = const mempty
instance ToHeaders UnlinkDeveloperIdentity
instance ToJSON UnlinkDeveloperIdentity where
toJSON UnlinkDeveloperIdentity{..} = object
[ "IdentityId" .= _udiIdentityId
, "IdentityPoolId" .= _udiIdentityPoolId
, "DeveloperProviderName" .= _udiDeveloperProviderName
, "DeveloperUserIdentifier" .= _udiDeveloperUserIdentifier
]
instance AWSRequest UnlinkDeveloperIdentity where
type Sv UnlinkDeveloperIdentity = CognitoIdentity
type Rs UnlinkDeveloperIdentity = UnlinkDeveloperIdentityResponse
request = post "UnlinkDeveloperIdentity"
response = nullResponse UnlinkDeveloperIdentityResponse