1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{-# LANGUAGE DeriveGeneric #-} module Model.Message ( Message(..) ) where import Data.Aeson import Data.Text (Text) import GHC.Generics data Message = Message { message :: Text } deriving (Show, Generic) instance FromJSON Message instance ToJSON Message