{-# LANGUAGE DeriveGeneric #-}

module Server.DTOs.Comments (Comments (..)) where

import GHC.Generics (Generic)

import Data.Aeson (FromJSON, ToJSON)
import Data.OpenApi (ToSchema)
import Data.Vector (Vector)
import Docs.Comment (Comment)

newtype Comments = Comments
    { Comments -> Vector Comment
comments :: Vector Comment
    }
    deriving ((forall x. Comments -> Rep Comments x)
-> (forall x. Rep Comments x -> Comments) -> Generic Comments
forall x. Rep Comments x -> Comments
forall x. Comments -> Rep Comments x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. Comments -> Rep Comments x
from :: forall x. Comments -> Rep Comments x
$cto :: forall x. Rep Comments x -> Comments
to :: forall x. Rep Comments x -> Comments
Generic)

instance ToJSON Comments

instance FromJSON Comments

instance ToSchema Comments