module Tonatona.Google.Client
( getCalendarEventList
, postCalendarEvent
, postGmailSend
) where
import Tonalude
import qualified Google.Client as Client
import qualified Google.Form as Form
import qualified Google.Response as Response
import Tonatona.Google.Internal
getCalendarEventList ::
Text
-> Maybe Bool
-> Maybe Form.DateTime
-> Maybe Form.DateTime
-> Maybe Text-> Dsl env Response.CalendarEventList
getCalendarEventList calendarId singleEvents timeMin timeMax orderBy = do
t <- asks token
res <- liftIO $ Client.getCalendarEventList t calendarId singleEvents timeMin timeMax orderBy
case res of
Left err -> throwM err
Right resp -> pure resp
postCalendarEvent :: Form.CalendarEvent -> Dsl env Response.CalendarEvent
postCalendarEvent event = do
t <- asks token
res <- liftIO $ Client.postCalendarEvent t event
case res of
Left err -> throwM err
Right resp -> pure resp
postGmailSend :: Form.Email -> Dsl env Response.GmailSend
postGmailSend email = do
t <- asks token
res <- liftIO $ Client.postGmailSend t email
case res of
Left err -> throwM err
Right resp -> pure resp