module Network.AWS.CognitoIdentity.DeleteIdentityPool
(
DeleteIdentityPool
, deleteIdentityPool
, dip1IdentityPoolId
, DeleteIdentityPoolResponse
, deleteIdentityPoolResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CognitoIdentity.Types
import qualified GHC.Exts
newtype DeleteIdentityPool = DeleteIdentityPool
{ _dip1IdentityPoolId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteIdentityPool :: Text
-> DeleteIdentityPool
deleteIdentityPool p1 = DeleteIdentityPool
{ _dip1IdentityPoolId = p1
}
dip1IdentityPoolId :: Lens' DeleteIdentityPool Text
dip1IdentityPoolId =
lens _dip1IdentityPoolId (\s a -> s { _dip1IdentityPoolId = a })
data DeleteIdentityPoolResponse = DeleteIdentityPoolResponse
deriving (Eq, Ord, Show, Generic)
deleteIdentityPoolResponse :: DeleteIdentityPoolResponse
deleteIdentityPoolResponse = DeleteIdentityPoolResponse
instance ToPath DeleteIdentityPool where
toPath = const "/"
instance ToQuery DeleteIdentityPool where
toQuery = const mempty
instance ToHeaders DeleteIdentityPool
instance ToJSON DeleteIdentityPool where
toJSON DeleteIdentityPool{..} = object
[ "IdentityPoolId" .= _dip1IdentityPoolId
]
instance AWSRequest DeleteIdentityPool where
type Sv DeleteIdentityPool = CognitoIdentity
type Rs DeleteIdentityPool = DeleteIdentityPoolResponse
request = post "DeleteIdentityPool"
response = nullResponse DeleteIdentityPoolResponse