aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Mail.hs
blob: 7ee8a8e4159ba8511c4e23474988680feed911cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
module Model.Mail
  ( Mail(..)
  ) where

import Data.Text (Text)
import qualified Data.Text.Lazy as LT

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