{-
   Vikunja API

   # Pagination Every endpoint capable of pagination will return two headers: * `x-pagination-total-pages`: The total number of available pages for this request * `x-pagination-result-count`: The number of items returned for this request. # Rights All endpoints which return a single item (project, task, etc.) - no array - will also return a `x-max-right` header with the max right the user has on this item as an int where `0` is `Read Only`, `1` is `Read & Write` and `2` is `Admin`. This can be used to show or hide ui elements based on the rights the user has. # Errors All errors have an error code and a human-readable error message in addition to the http status code. You should always check for the status code in the response, not only the http status code. Due to limitations in the swagger library we're using for this document, only one error per http status code is documented here. Make sure to check the [error docs](https://vikunja.io/docs/errors/) in Vikunja's documentation for a full list of available error codes. # Authorization **JWT-Auth:** Main authorization method, used for most of the requests. Needs `Authorization: Bearer <jwt-token>`-header to authenticate successfully.  **API Token:** You can create scoped API tokens for your user and use the token to make authenticated requests in the context of that user. The token must be provided via an `Authorization: Bearer <token>` header, similar to jwt auth. See the documentation for the `api` group to manage token creation and revocation.  **BasicAuth:** Only used when requesting tasks via CalDAV. <!-- ReDoc-Inject: <security-definitions> -->

   OpenAPI Version: 3.0.1
   Vikunja API API version: 0.24.6
   Contact: hello@vikunja.io
   Generated by OpenAPI Generator (https://openapi-generator.tech)
-}

{-|
Module : Vikunja.API.Subscriptions
-}

{-# 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.Subscriptions 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

-- * Operations


-- ** Subscriptions

-- *** notificationsGet

-- | @GET \/notifications@
-- 
-- Get all notifications for the current user
-- 
-- Returns an array with all notifications for the current user.
-- 
-- AuthMethod: 'AuthApiKeyJWTKeyAuth'
-- 
notificationsGet
  :: VikunjaRequest NotificationsGet MimeNoContent [NotificationsDatabaseNotification] MimeJSON
notificationsGet :: VikunjaRequest
  NotificationsGet
  MimeNoContent
  [NotificationsDatabaseNotification]
  MimeJSON
notificationsGet =
  Method
-> [ByteString]
-> VikunjaRequest
     NotificationsGet
     MimeNoContent
     [NotificationsDatabaseNotification]
     MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/notifications"]
    VikunjaRequest
  NotificationsGet
  MimeNoContent
  [NotificationsDatabaseNotification]
  MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
     NotificationsGet
     MimeNoContent
     [NotificationsDatabaseNotification]
     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 NotificationsGet  

-- | /Optional Param/ "page" - The page number. Used for pagination. If not provided, the first page of results is returned.
instance HasOptionalParam NotificationsGet Page where
  applyOptionalParam :: VikunjaRequest NotificationsGet contentType res accept
-> Page -> VikunjaRequest NotificationsGet contentType res accept
applyOptionalParam VikunjaRequest NotificationsGet contentType res accept
req (Page Int
xs) =
    VikunjaRequest NotificationsGet contentType res accept
req VikunjaRequest NotificationsGet contentType res accept
-> [QueryItem]
-> VikunjaRequest NotificationsGet 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)

-- | /Optional Param/ "per_page" - The maximum number of items per page. Note this parameter is limited by the configured maximum of items per page.
instance HasOptionalParam NotificationsGet PerPage where
  applyOptionalParam :: VikunjaRequest NotificationsGet contentType res accept
-> PerPage
-> VikunjaRequest NotificationsGet contentType res accept
applyOptionalParam VikunjaRequest NotificationsGet contentType res accept
req (PerPage Int
xs) =
    VikunjaRequest NotificationsGet contentType res accept
req VikunjaRequest NotificationsGet contentType res accept
-> [QueryItem]
-> VikunjaRequest NotificationsGet 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)
-- | @application/json@
instance Produces NotificationsGet MimeJSON


-- *** notificationsIdPost

-- | @POST \/notifications\/{id}@
-- 
-- Mark a notification as (un-)read
-- 
-- Marks a notification as either read or unread. A user can only mark their own notifications as read.
-- 
-- AuthMethod: 'AuthApiKeyJWTKeyAuth'
-- 
notificationsIdPost
  :: Id -- ^ "id" -  Notification ID
  -> VikunjaRequest NotificationsIdPost MimeNoContent ModelsDatabaseNotifications MimeJSON
notificationsIdPost :: Id
-> VikunjaRequest
     NotificationsIdPost
     MimeNoContent
     ModelsDatabaseNotifications
     MimeJSON
notificationsIdPost (Id Int
id) =
  Method
-> [ByteString]
-> VikunjaRequest
     NotificationsIdPost
     MimeNoContent
     ModelsDatabaseNotifications
     MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/notifications/",Int -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Int
id]
    VikunjaRequest
  NotificationsIdPost
  MimeNoContent
  ModelsDatabaseNotifications
  MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
     NotificationsIdPost
     MimeNoContent
     ModelsDatabaseNotifications
     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 NotificationsIdPost  
-- | @application/json@
instance Produces NotificationsIdPost MimeJSON


-- *** subscriptionsEntityEntityIDDelete

-- | @DELETE \/subscriptions\/{entity}\/{entityID}@
-- 
-- Unsubscribe the current user from an entity.
-- 
-- Unsubscribes the current user to an entity.
-- 
-- AuthMethod: 'AuthApiKeyJWTKeyAuth'
-- 
subscriptionsEntityEntityIDDelete
  :: Entity -- ^ "entity" -  The entity the user subscribed to. Can be either `project` or `task`.
  -> EntityId -- ^ "entityId" -  The numeric id of the subscribed entity to.
  -> VikunjaRequest SubscriptionsEntityEntityIDDelete MimeNoContent ModelsSubscription MimeJSON
subscriptionsEntityEntityIDDelete :: Entity
-> EntityId
-> VikunjaRequest
     SubscriptionsEntityEntityIDDelete
     MimeNoContent
     ModelsSubscription
     MimeJSON
subscriptionsEntityEntityIDDelete (Entity Text
entity) (EntityId Text
entityId) =
  Method
-> [ByteString]
-> VikunjaRequest
     SubscriptionsEntityEntityIDDelete
     MimeNoContent
     ModelsSubscription
     MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/subscriptions/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
entity,ByteString
"/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
entityId]
    VikunjaRequest
  SubscriptionsEntityEntityIDDelete
  MimeNoContent
  ModelsSubscription
  MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
     SubscriptionsEntityEntityIDDelete
     MimeNoContent
     ModelsSubscription
     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 SubscriptionsEntityEntityIDDelete  
-- | @application/json@
instance Produces SubscriptionsEntityEntityIDDelete MimeJSON


-- *** subscriptionsEntityEntityIDPut

-- | @PUT \/subscriptions\/{entity}\/{entityID}@
-- 
-- Subscribes the current user to an entity.
-- 
-- Subscribes the current user to an entity.
-- 
-- AuthMethod: 'AuthApiKeyJWTKeyAuth'
-- 
subscriptionsEntityEntityIDPut
  :: Entity -- ^ "entity" -  The entity the user subscribes to. Can be either `project` or `task`.
  -> EntityId -- ^ "entityId" -  The numeric id of the entity to subscribe to.
  -> VikunjaRequest SubscriptionsEntityEntityIDPut MimeNoContent ModelsSubscription MimeJSON
subscriptionsEntityEntityIDPut :: Entity
-> EntityId
-> VikunjaRequest
     SubscriptionsEntityEntityIDPut
     MimeNoContent
     ModelsSubscription
     MimeJSON
subscriptionsEntityEntityIDPut (Entity Text
entity) (EntityId Text
entityId) =
  Method
-> [ByteString]
-> VikunjaRequest
     SubscriptionsEntityEntityIDPut
     MimeNoContent
     ModelsSubscription
     MimeJSON
forall req contentType res accept.
Method -> [ByteString] -> VikunjaRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/subscriptions/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
entity,ByteString
"/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
entityId]
    VikunjaRequest
  SubscriptionsEntityEntityIDPut
  MimeNoContent
  ModelsSubscription
  MimeJSON
-> Proxy AuthApiKeyJWTKeyAuth
-> VikunjaRequest
     SubscriptionsEntityEntityIDPut
     MimeNoContent
     ModelsSubscription
     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 SubscriptionsEntityEntityIDPut  
-- | @application/json@
instance Produces SubscriptionsEntityEntityIDPut MimeJSON