module Network.Google.Resource.Gmail.Users.Messages.Send
(
UsersMessagesSendResource
, usersMessagesSend
, UsersMessagesSend
, umsPayload
, umsUserId
) where
import Network.Google.Gmail.Types
import Network.Google.Prelude
type UsersMessagesSendResource =
"gmail" :>
"v1" :>
"users" :>
Capture "userId" Text :>
"messages" :>
"send" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Message :> Post '[JSON] Message
:<|>
"upload" :>
"gmail" :>
"v1" :>
"users" :>
Capture "userId" Text :>
"messages" :>
"send" :>
QueryParam "alt" AltJSON :>
QueryParam "uploadType" AltMedia :>
MultipartRelated '[JSON] Message RequestBody :>
Post '[JSON] Message
data UsersMessagesSend = UsersMessagesSend
{ _umsPayload :: !Message
, _umsUserId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
usersMessagesSend
:: Message
-> Text
-> UsersMessagesSend
usersMessagesSend pUmsPayload_ pUmsUserId_ =
UsersMessagesSend
{ _umsPayload = pUmsPayload_
, _umsUserId = "me"
}
umsPayload :: Lens' UsersMessagesSend Message
umsPayload
= lens _umsPayload (\ s a -> s{_umsPayload = a})
umsUserId :: Lens' UsersMessagesSend Text
umsUserId
= lens _umsUserId (\ s a -> s{_umsUserId = a})
instance GoogleRequest UsersMessagesSend where
type Rs UsersMessagesSend = Message
requestClient UsersMessagesSend{..}
= go _umsUserId (Just AltJSON) _umsPayload
gmailService
where go :<|> _
= buildClient
(Proxy :: Proxy UsersMessagesSendResource)
mempty
instance GoogleRequest
(MediaUpload UsersMessagesSend) where
type Rs (MediaUpload UsersMessagesSend) = Message
requestClient
(MediaUpload UsersMessagesSend{..} body)
= go _umsUserId (Just AltJSON) (Just AltMedia)
_umsPayload
body
gmailService
where _ :<|> go
= buildClient
(Proxy :: Proxy UsersMessagesSendResource)
mempty