{-# 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.Assignees 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
tasksTaskIDAssigneesBulkPost
:: (Consumes TasksTaskIDAssigneesBulkPost MimeJSON, MimeRender MimeJSON ModelsBulkAssignees)
=> ModelsBulkAssignees
-> TaskId
-> VikunjaRequest TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee MimeJSON
tasksTaskIDAssigneesBulkPost :: ModelsBulkAssignees
-> TaskId
-> VikunjaRequest
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee MimeJSON
tasksTaskIDAssigneesBulkPost ModelsBulkAssignees
assignee (TaskId Int
taskId) =
Method
-> [ByteString]
-> VikunjaRequest
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/tasks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
taskId,ByteString
"/assignees/bulk"]
VikunjaRequest
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee 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
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee MimeJSON
-> ModelsBulkAssignees
-> VikunjaRequest
TasksTaskIDAssigneesBulkPost MimeJSON ModelsTaskAssginee 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` ModelsBulkAssignees
assignee
data TasksTaskIDAssigneesBulkPost
instance HasBodyParam TasksTaskIDAssigneesBulkPost ModelsBulkAssignees
instance Consumes TasksTaskIDAssigneesBulkPost MimeJSON
instance Produces TasksTaskIDAssigneesBulkPost MimeJSON
tasksTaskIDAssigneesGet
:: TaskId
-> VikunjaRequest TasksTaskIDAssigneesGet MimeNoContent [UserUser] MimeJSON
tasksTaskIDAssigneesGet :: TaskId
-> VikunjaRequest
TasksTaskIDAssigneesGet MimeNoContent [UserUser] MimeJSON
tasksTaskIDAssigneesGet (TaskId Int
taskId) =
Method
-> [ByteString]
-> VikunjaRequest
TasksTaskIDAssigneesGet MimeNoContent [UserUser] MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/tasks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
taskId,ByteString
"/assignees"]
VikunjaRequest
TasksTaskIDAssigneesGet MimeNoContent [UserUser] MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
TasksTaskIDAssigneesGet MimeNoContent [UserUser] 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 TasksTaskIDAssigneesGet
instance HasOptionalParam TasksTaskIDAssigneesGet Page where
applyOptionalParam :: VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> Page
-> VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
applyOptionalParam VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req (Page Int
xs) =
VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> [QueryItem]
-> VikunjaRequest TasksTaskIDAssigneesGet 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 TasksTaskIDAssigneesGet PerPage where
applyOptionalParam :: VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> PerPage
-> VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
applyOptionalParam VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req (PerPage Int
xs) =
VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> [QueryItem]
-> VikunjaRequest TasksTaskIDAssigneesGet 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 HasOptionalParam TasksTaskIDAssigneesGet S where
applyOptionalParam :: VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> S
-> VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
applyOptionalParam VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req (S Text
xs) =
VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
req VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
-> [QueryItem]
-> VikunjaRequest TasksTaskIDAssigneesGet contentType res accept
forall req contentType res accept.
VikunjaRequest req contentType res accept
-> [QueryItem] -> VikunjaRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"s", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance Produces TasksTaskIDAssigneesGet MimeJSON
tasksTaskIDAssigneesPut
:: (Consumes TasksTaskIDAssigneesPut MimeJSON, MimeRender MimeJSON ModelsTaskAssginee)
=> ModelsTaskAssginee
-> TaskId
-> VikunjaRequest TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee MimeJSON
tasksTaskIDAssigneesPut :: ModelsTaskAssginee
-> TaskId
-> VikunjaRequest
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee MimeJSON
tasksTaskIDAssigneesPut ModelsTaskAssginee
assignee (TaskId Int
taskId) =
Method
-> [ByteString]
-> VikunjaRequest
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/tasks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
taskId,ByteString
"/assignees"]
VikunjaRequest
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee 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
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee MimeJSON
-> ModelsTaskAssginee
-> VikunjaRequest
TasksTaskIDAssigneesPut MimeJSON ModelsTaskAssginee 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` ModelsTaskAssginee
assignee
data TasksTaskIDAssigneesPut
instance HasBodyParam TasksTaskIDAssigneesPut ModelsTaskAssginee
instance Consumes TasksTaskIDAssigneesPut MimeJSON
instance Produces TasksTaskIDAssigneesPut MimeJSON
tasksTaskIDAssigneesUserIDDelete
:: TaskId
-> UserId
-> VikunjaRequest TasksTaskIDAssigneesUserIDDelete MimeNoContent ModelsMessage MimeJSON
tasksTaskIDAssigneesUserIDDelete :: TaskId
-> UserId
-> VikunjaRequest
TasksTaskIDAssigneesUserIDDelete
MimeNoContent
ModelsMessage
MimeJSON
tasksTaskIDAssigneesUserIDDelete (TaskId Int
taskId) (UserId Int
userId) =
Method
-> [ByteString]
-> VikunjaRequest
TasksTaskIDAssigneesUserIDDelete
MimeNoContent
ModelsMessage
MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/tasks/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
taskId,ByteString
"/assignees/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
userId]
VikunjaRequest
TasksTaskIDAssigneesUserIDDelete
MimeNoContent
ModelsMessage
MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
TasksTaskIDAssigneesUserIDDelete
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 TasksTaskIDAssigneesUserIDDelete
instance Produces TasksTaskIDAssigneesUserIDDelete MimeJSON