diff options
| author | Joris | 2016-07-14 11:57:12 +0000 |
|---|---|---|
| committer | Joris | 2016-07-14 12:00:05 +0000 |
| commit | 69e69017b75d1cdaa1fd2aef2818de5111b29735 (patch) | |
| tree | 99dba8f67dc1c55b2cc22f33f81c59c7355b337b /src/Model/Mail.hs | |
| parent | 04f9a66c66ca137d9fee6ccca228c41fec960fe0 (diff) | |
| download | ad-listener-69e69017b75d1cdaa1fd2aef2818de5111b29735.tar.gz ad-listener-69e69017b75d1cdaa1fd2aef2818de5111b29735.tar.bz2 ad-listener-69e69017b75d1cdaa1fd2aef2818de5111b29735.zip | |
Update code and fix parsers
Diffstat (limited to 'src/Model/Mail.hs')
| -rw-r--r-- | src/Model/Mail.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Model/Mail.hs b/src/Model/Mail.hs new file mode 100644 index 0000000..20addee --- /dev/null +++ b/src/Model/Mail.hs @@ -0,0 +1,14 @@ +module Model.Mail + ( Mail(..) + ) where + +import Data.Text (Text) +import qualified Data.Text.Lazy as LT + +data Mail = Mail + { from :: Text + , to :: [Text] + , subject :: Text + , plainBody :: LT.Text + , htmlBody :: LT.Text + } deriving (Eq, Show) |