{-# LANGUAGE DeriveGeneric #-}

module Server.DTOs.CreateDocument (CreateDocument (..)) where

import Data.Text (Text)

import GHC.Generics (Generic)

import Data.Aeson (FromJSON, ToJSON)
import Data.OpenApi (ToSchema)

import UserManagement.Group (GroupID)

data CreateDocument = CreateDocument
    { CreateDocument -> GroupID
groupID :: GroupID
    , CreateDocument -> Text
title :: Text
    }
    deriving ((forall x. CreateDocument -> Rep CreateDocument x)
-> (forall x. Rep CreateDocument x -> CreateDocument)
-> Generic CreateDocument
forall x. Rep CreateDocument x -> CreateDocument
forall x. CreateDocument -> Rep CreateDocument x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. CreateDocument -> Rep CreateDocument x
from :: forall x. CreateDocument -> Rep CreateDocument x
$cto :: forall x. Rep CreateDocument x -> CreateDocument
to :: forall x. Rep CreateDocument x -> CreateDocument
Generic)

instance ToJSON CreateDocument

instance FromJSON CreateDocument

instance ToSchema CreateDocument