{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
module Vikunja.API.Webhooks where
import Vikunja.Core
import Vikunja.MimeTypes
import Vikunja.Model as M
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.Set as Set
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Time as TI
import qualified Network.HTTP.Client.MultipartFormData as NH
import qualified Network.HTTP.Media as ME
import qualified Network.HTTP.Types as NH
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH
import Data.Text (Text)
import GHC.Base ((<|>))
import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P
projectsIdWebhooksGet
:: Id
-> VikunjaRequest ProjectsIdWebhooksGet MimeNoContent [ModelsWebhook] MimeJSON
projectsIdWebhooksGet :: Id
-> VikunjaRequest
ProjectsIdWebhooksGet MimeNoContent [ModelsWebhook] MimeJSON
projectsIdWebhooksGet (Id Int
id) =
Method
-> [ByteString]
-> VikunjaRequest
ProjectsIdWebhooksGet MimeNoContent [ModelsWebhook] MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/projects/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
id,ByteString
"/webhooks"]
VikunjaRequest
ProjectsIdWebhooksGet MimeNoContent [ModelsWebhook] MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
ProjectsIdWebhooksGet MimeNoContent [ModelsWebhook] MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
VikunjaRequest req contentType res accept
-> Proxy authMethod -> VikunjaRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyJWTKeyAuth
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyJWTKeyAuth)
data ProjectsIdWebhooksGet
instance HasOptionalParam ProjectsIdWebhooksGet Page where
applyOptionalParam :: VikunjaRequest ProjectsIdWebhooksGet contentType res accept
-> Page
-> VikunjaRequest ProjectsIdWebhooksGet contentType res accept
applyOptionalParam VikunjaRequest ProjectsIdWebhooksGet contentType res accept
req (Page Int
xs) =
VikunjaRequest ProjectsIdWebhooksGet contentType res accept
req VikunjaRequest ProjectsIdWebhooksGet contentType res accept
-> [QueryItem]
-> VikunjaRequest ProjectsIdWebhooksGet contentType res accept
forall req contentType res accept.
VikunjaRequest req contentType res accept
-> [QueryItem] -> VikunjaRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"page", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam ProjectsIdWebhooksGet PerPage where
applyOptionalParam :: VikunjaRequest ProjectsIdWebhooksGet contentType res accept
-> PerPage
-> VikunjaRequest ProjectsIdWebhooksGet contentType res accept
applyOptionalParam VikunjaRequest ProjectsIdWebhooksGet contentType res accept
req (PerPage Int
xs) =
VikunjaRequest ProjectsIdWebhooksGet contentType res accept
req VikunjaRequest ProjectsIdWebhooksGet contentType res accept
-> [QueryItem]
-> VikunjaRequest ProjectsIdWebhooksGet contentType res accept
forall req contentType res accept.
VikunjaRequest req contentType res accept
-> [QueryItem] -> VikunjaRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"per_page", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance Produces ProjectsIdWebhooksGet MimeJSON
projectsIdWebhooksPut
:: (Consumes ProjectsIdWebhooksPut MimeJSON, MimeRender MimeJSON ModelsWebhook)
=> ModelsWebhook
-> Id
-> VikunjaRequest ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
projectsIdWebhooksPut :: ModelsWebhook
-> Id
-> VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
projectsIdWebhooksPut ModelsWebhook
webhook (Id Int
id) =
Method
-> [ByteString]
-> VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/projects/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
id,ByteString
"/webhooks"]
VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
VikunjaRequest req contentType res accept
-> Proxy authMethod -> VikunjaRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyJWTKeyAuth
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyJWTKeyAuth)
VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
-> ModelsWebhook
-> VikunjaRequest
ProjectsIdWebhooksPut MimeJSON ModelsWebhook MimeJSON
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
VikunjaRequest req contentType res accept
-> param -> VikunjaRequest req contentType res accept
`setBodyParam` ModelsWebhook
webhook
data ProjectsIdWebhooksPut
instance HasBodyParam ProjectsIdWebhooksPut ModelsWebhook
instance Consumes ProjectsIdWebhooksPut MimeJSON
instance Produces ProjectsIdWebhooksPut MimeJSON
projectsIdWebhooksWebhookIDDelete
:: Id
-> WebhookId
-> VikunjaRequest ProjectsIdWebhooksWebhookIDDelete MimeNoContent ModelsMessage MimeJSON
projectsIdWebhooksWebhookIDDelete :: Id
-> WebhookId
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDDelete
MimeNoContent
ModelsMessage
MimeJSON
projectsIdWebhooksWebhookIDDelete (Id Int
id) (WebhookId Int
webhookId) =
Method
-> [ByteString]
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDDelete
MimeNoContent
ModelsMessage
MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/projects/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
id,ByteString
"/webhooks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
webhookId]
VikunjaRequest
ProjectsIdWebhooksWebhookIDDelete
MimeNoContent
ModelsMessage
MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDDelete
MimeNoContent
ModelsMessage
MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
VikunjaRequest req contentType res accept
-> Proxy authMethod -> VikunjaRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyJWTKeyAuth
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyJWTKeyAuth)
data ProjectsIdWebhooksWebhookIDDelete
instance Produces ProjectsIdWebhooksWebhookIDDelete MimeJSON
projectsIdWebhooksWebhookIDPost
:: Id
-> WebhookId
-> VikunjaRequest ProjectsIdWebhooksWebhookIDPost MimeNoContent ModelsWebhook MimeJSON
projectsIdWebhooksWebhookIDPost :: Id
-> WebhookId
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDPost
MimeNoContent
ModelsWebhook
MimeJSON
projectsIdWebhooksWebhookIDPost (Id Int
id) (WebhookId Int
webhookId) =
Method
-> [ByteString]
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDPost
MimeNoContent
ModelsWebhook
MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/projects/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
id,ByteString
"/webhooks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
webhookId]
VikunjaRequest
ProjectsIdWebhooksWebhookIDPost
MimeNoContent
ModelsWebhook
MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
ProjectsIdWebhooksWebhookIDPost
MimeNoContent
ModelsWebhook
MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
VikunjaRequest req contentType res accept
-> Proxy authMethod -> VikunjaRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyJWTKeyAuth
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyJWTKeyAuth)
data ProjectsIdWebhooksWebhookIDPost
instance Produces ProjectsIdWebhooksWebhookIDPost MimeJSON
webhooksEventsGet
:: VikunjaRequest WebhooksEventsGet MimeNoContent [Text] MimeJSON
webhooksEventsGet :: VikunjaRequest WebhooksEventsGet MimeNoContent [Text] MimeJSON
webhooksEventsGet =
Method
-> [ByteString]
-> VikunjaRequest WebhooksEventsGet MimeNoContent [Text] MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/webhooks/events"]
VikunjaRequest WebhooksEventsGet MimeNoContent [Text] MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest WebhooksEventsGet MimeNoContent [Text] MimeJSON
forall authMethod req contentType res accept.
AuthMethod authMethod =>
VikunjaRequest req contentType res accept
-> Proxy authMethod -> VikunjaRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyJWTKeyAuth
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyJWTKeyAuth)
data WebhooksEventsGet
instance Produces WebhooksEventsGet MimeJSON