diff options
| author | Joris Guyonvarch | 2015-08-09 00:21:03 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-09 00:21:03 +0200 |
| commit | 169d52bfbe8b7f95dcece3cef245cdd62336e2f8 (patch) | |
| tree | 491b5edb2646b41d36920f1c670cba26a674868c /src/server/Model/Mail.hs | |
| parent | a4f60df0f3b72553380bdd3ca960abf42048ed7e (diff) | |
| download | budget-169d52bfbe8b7f95dcece3cef245cdd62336e2f8.tar.gz budget-169d52bfbe8b7f95dcece3cef245cdd62336e2f8.tar.bz2 budget-169d52bfbe8b7f95dcece3cef245cdd62336e2f8.zip | |
Wording for sign in email
Diffstat (limited to 'src/server/Model/Mail.hs')
| -rw-r--r-- | src/server/Model/Mail.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/server/Model/Mail.hs b/src/server/Model/Mail.hs new file mode 100644 index 0000000..7ee8a8e --- /dev/null +++ b/src/server/Model/Mail.hs @@ -0,0 +1,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) |