src/executable/haskell/Model/Mail.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Model.Mail
  ( Mail(..)
  ) where

import           Data.Text (Text)

data Mail = Mail
  { from      :: Text
  , to        :: [Text]
  , subject   :: Text
  , plainBody :: Text
  } deriving (Eq, Show)