{-# 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.Api 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
routesGet
:: VikunjaRequest RoutesGet MimeNoContent [ModelsRouteDetail] MimeJSON
routesGet :: VikunjaRequest RoutesGet MimeNoContent [ModelsRouteDetail] MimeJSON
routesGet =
Method
-> [ByteString]
-> VikunjaRequest
RoutesGet MimeNoContent [ModelsRouteDetail] MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/routes"]
VikunjaRequest RoutesGet MimeNoContent [ModelsRouteDetail] MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
RoutesGet MimeNoContent [ModelsRouteDetail] 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 RoutesGet
instance Produces RoutesGet MimeJSON
tokensGet
:: VikunjaRequest TokensGet MimeNoContent [ModelsAPIToken] MimeJSON
tokensGet :: VikunjaRequest TokensGet MimeNoContent [ModelsAPIToken] MimeJSON
tokensGet =
Method
-> [ByteString]
-> VikunjaRequest TokensGet MimeNoContent [ModelsAPIToken] MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/tokens"]
VikunjaRequest TokensGet MimeNoContent [ModelsAPIToken] MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest TokensGet MimeNoContent [ModelsAPIToken] 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 TokensGet
instance HasOptionalParam TokensGet Page where
applyOptionalParam :: VikunjaRequest TokensGet contentType res accept
-> Page -> VikunjaRequest TokensGet contentType res accept
applyOptionalParam VikunjaRequest TokensGet contentType res accept
req (Page Int
xs) =
VikunjaRequest TokensGet contentType res accept
req VikunjaRequest TokensGet contentType res accept
-> [QueryItem] -> VikunjaRequest TokensGet 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 TokensGet PerPage where
applyOptionalParam :: VikunjaRequest TokensGet contentType res accept
-> PerPage -> VikunjaRequest TokensGet contentType res accept
applyOptionalParam VikunjaRequest TokensGet contentType res accept
req (PerPage Int
xs) =
VikunjaRequest TokensGet contentType res accept
req VikunjaRequest TokensGet contentType res accept
-> [QueryItem] -> VikunjaRequest TokensGet 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 TokensGet S where
applyOptionalParam :: VikunjaRequest TokensGet contentType res accept
-> S -> VikunjaRequest TokensGet contentType res accept
applyOptionalParam VikunjaRequest TokensGet contentType res accept
req (S Text
xs) =
VikunjaRequest TokensGet contentType res accept
req VikunjaRequest TokensGet contentType res accept
-> [QueryItem] -> VikunjaRequest TokensGet 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 TokensGet MimeJSON
tokensPut
:: (Consumes TokensPut MimeJSON, MimeRender MimeJSON ModelsAPIToken)
=> ModelsAPIToken
-> VikunjaRequest TokensPut MimeJSON ModelsAPIToken MimeJSON
tokensPut :: ModelsAPIToken
-> VikunjaRequest TokensPut MimeJSON ModelsAPIToken MimeJSON
tokensPut ModelsAPIToken
token =
Method
-> [ByteString]
-> VikunjaRequest TokensPut MimeJSON ModelsAPIToken MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/tokens"]
VikunjaRequest TokensPut MimeJSON ModelsAPIToken MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest TokensPut MimeJSON ModelsAPIToken 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 TokensPut MimeJSON ModelsAPIToken MimeJSON
-> ModelsAPIToken
-> VikunjaRequest TokensPut MimeJSON ModelsAPIToken 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` ModelsAPIToken
token
data TokensPut
instance HasBodyParam TokensPut ModelsAPIToken
instance Consumes TokensPut MimeJSON
instance Produces TokensPut MimeJSON
tokensTokenIDDelete
:: TokenId
-> VikunjaRequest TokensTokenIDDelete MimeNoContent ModelsMessage MimeJSON
tokensTokenIDDelete :: TokenId
-> VikunjaRequest
TokensTokenIDDelete MimeNoContent ModelsMessage MimeJSON
tokensTokenIDDelete (TokenId Int
tokenId) =
Method
-> [ByteString]
-> VikunjaRequest
TokensTokenIDDelete MimeNoContent ModelsMessage MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/tokens/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
tokenId]
VikunjaRequest
TokensTokenIDDelete MimeNoContent ModelsMessage MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
TokensTokenIDDelete 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 TokensTokenIDDelete
instance Produces TokensTokenIDDelete MimeJSON