{-# 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.Pinpoint.CreateApp
(
createApp
, CreateApp
, caCreateApplicationRequest
, createAppResponse
, CreateAppResponse
, carsResponseStatus
, carsApplicationResponse
) where
import Network.AWS.Lens
import Network.AWS.Pinpoint.Types
import Network.AWS.Pinpoint.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype CreateApp = CreateApp'
{ _caCreateApplicationRequest :: CreateApplicationRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createApp
:: CreateApplicationRequest
-> CreateApp
createApp pCreateApplicationRequest_ =
CreateApp' {_caCreateApplicationRequest = pCreateApplicationRequest_}
caCreateApplicationRequest :: Lens' CreateApp CreateApplicationRequest
caCreateApplicationRequest = lens _caCreateApplicationRequest (\ s a -> s{_caCreateApplicationRequest = a})
instance AWSRequest CreateApp where
type Rs CreateApp = CreateAppResponse
request = postJSON pinpoint
response
= receiveJSON
(\ s h x ->
CreateAppResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable CreateApp where
instance NFData CreateApp where
instance ToHeaders CreateApp where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateApp where
toJSON CreateApp'{..}
= object
(catMaybes
[Just
("CreateApplicationRequest" .=
_caCreateApplicationRequest)])
instance ToPath CreateApp where
toPath = const "/v1/apps"
instance ToQuery CreateApp where
toQuery = const mempty
data CreateAppResponse = CreateAppResponse'
{ _carsResponseStatus :: !Int
, _carsApplicationResponse :: !ApplicationResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAppResponse
:: Int
-> ApplicationResponse
-> CreateAppResponse
createAppResponse pResponseStatus_ pApplicationResponse_ =
CreateAppResponse'
{ _carsResponseStatus = pResponseStatus_
, _carsApplicationResponse = pApplicationResponse_
}
carsResponseStatus :: Lens' CreateAppResponse Int
carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})
carsApplicationResponse :: Lens' CreateAppResponse ApplicationResponse
carsApplicationResponse = lens _carsApplicationResponse (\ s a -> s{_carsApplicationResponse = a})
instance NFData CreateAppResponse where