module Network.Google.Resource.Gmail.Users.Drafts.Send
(
UsersDraftsSendResource
, usersDraftsSend
, UsersDraftsSend
, udsPayload
, udsUserId
) where
import Network.Google.Gmail.Types
import Network.Google.Prelude
type UsersDraftsSendResource =
"gmail" :>
"v1" :>
"users" :>
Capture "userId" Text :>
"drafts" :>
"send" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Draft :> Post '[JSON] Message
:<|>
"upload" :>
"gmail" :>
"v1" :>
"users" :>
Capture "userId" Text :>
"drafts" :>
"send" :>
QueryParam "alt" AltJSON :>
QueryParam "uploadType" AltMedia :>
MultipartRelated '[JSON] Draft RequestBody :>
Post '[JSON] Message
data UsersDraftsSend = UsersDraftsSend
{ _udsPayload :: !Draft
, _udsUserId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
usersDraftsSend
:: Draft
-> Text
-> UsersDraftsSend
usersDraftsSend pUdsPayload_ pUdsUserId_ =
UsersDraftsSend
{ _udsPayload = pUdsPayload_
, _udsUserId = "me"
}
udsPayload :: Lens' UsersDraftsSend Draft
udsPayload
= lens _udsPayload (\ s a -> s{_udsPayload = a})
udsUserId :: Lens' UsersDraftsSend Text
udsUserId
= lens _udsUserId (\ s a -> s{_udsUserId = a})
instance GoogleRequest UsersDraftsSend where
type Rs UsersDraftsSend = Message
requestClient UsersDraftsSend{..}
= go _udsUserId (Just AltJSON) _udsPayload
gmailService
where go :<|> _
= buildClient
(Proxy :: Proxy UsersDraftsSendResource)
mempty
instance GoogleRequest (MediaUpload UsersDraftsSend)
where
type Rs (MediaUpload UsersDraftsSend) = Message
requestClient (MediaUpload UsersDraftsSend{..} body)
= go _udsUserId (Just AltJSON) (Just AltMedia)
_udsPayload
body
gmailService
where _ :<|> go
= buildClient
(Proxy :: Proxy UsersDraftsSendResource)
mempty