{-# LANGUAGE DeriveGeneric #-}

module Server.DTOs.CreateComment (CreateComment (..)) where

import Data.Text (Text)
import GHC.Generics (Generic)

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

newtype CreateComment = CreateComment
    { CreateComment -> Text
text :: Text
    }
    deriving ((forall x. CreateComment -> Rep CreateComment x)
-> (forall x. Rep CreateComment x -> CreateComment)
-> Generic CreateComment
forall x. Rep CreateComment x -> CreateComment
forall x. CreateComment -> Rep CreateComment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. CreateComment -> Rep CreateComment x
from :: forall x. CreateComment -> Rep CreateComment x
$cto :: forall x. Rep CreateComment x -> CreateComment
to :: forall x. Rep CreateComment x -> CreateComment
Generic)

instance ToJSON CreateComment

instance FromJSON CreateComment

instance ToSchema CreateComment