src/server/Model/Json/MessagePart.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# LANGUAGE DeriveGeneric #-}

module Model.Json.MessagePart
  ( MessagePart(..)
  ) where

import Data.Text (Text)

import Data.Aeson
import GHC.Generics

data MessagePart =
  Order Int
  | Str Text
  deriving (Eq, Show, Generic)

instance FromJSON MessagePart
instance ToJSON MessagePart