Network.Pushbullet.Api

Documentation

data PushbulletAuth

Instances

type AuthClientData (AuthProtect * PushbulletAuth)

type AuthClientData (AuthProtect * PushbulletAuth) = PushbulletKey

newtype PushbulletKey

Constructors

PushbulletKey Text

Instances

ToHttpApiData PushbulletKey

Methods

toUrlPiece :: PushbulletKey -> Text

toHeader :: PushbulletKey -> ByteString

toQueryParam :: PushbulletKey -> Text

type PushbulletApi = "v2" :> PushbulletApiV2

type PushbulletApiV2 = PushAuth (AuthProtect PushbulletAuth) (("pushes" :> ((ReqBody '[JSON] (Push New) :> Post '[JSON] (Push Existing)) :<|> (QueryParam "modified_after" PushbulletTime :> (QueryParam "active" Bool :> (QueryParam "limit" Int :> (QueryParam "cursor" Cursor :> Get '[JSON] (Paginated ExistingPushes))))))) :<|> (("ephemerals" :> (ReqBody '[JSON] Ephemeral :> Post '[JSON] TrivialObject)) :<|> (("users" :> ("me" :> Get '[JSON] User)) :<|> (("devices" :> ((QueryParam "active" Bool :> (QueryParam "cursor" Cursor :> Get '[JSON] (Paginated ExistingDevices))) :<|> ((ReqBody '[JSON] (Device New) :> Post '[JSON] (Device Existing)) :<|> (Capture "deviceId" DeviceId :> Delete '[JSON] TrivialObject)))) :<|> ("permanents" :> ((Capture "permanent" (Permanent ThreadList) :> Get '[JSON] SmsThreads) :<|> (Capture "permanent" (Permanent MessageList) :> Get '[JSON] SmsMessages)))))))

pushbulletApi :: Proxy PushbulletApi

type family PushAuth (auth :: *) (api :: *) :: * where ...

Equations

PushAuth auth ((s :: Symbol) :> api) = s :> PushAuth auth api

PushAuth auth (l :<|> r) = PushAuth auth l :<|> PushAuth auth r

PushAuth auth a = auth :> a