{-# LANGUAGE DeriveGeneric #-}

module Server.DTOs.CreateReply (CreateReply (..)) where

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

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

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

instance ToJSON CreateReply

instance FromJSON CreateReply

instance ToSchema CreateReply