diff options
| author | tv <tv@shackspace.de> | 2015-03-01 12:06:04 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-03-01 12:30:07 +0100 |
| commit | 04929712f248dbbdf200693c0751dc925fb03c61 (patch) | |
| tree | 242444c48e58564e3911e1bba4de9e26feb193ca /ParseMail.hs | |
| parent | c88f9ed5a738553185f878eada60998e7bea2cfa (diff) | |
test5: add date header
Diffstat (limited to 'ParseMail.hs')
| -rw-r--r-- | ParseMail.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ParseMail.hs b/ParseMail.hs index 7ce0674..c4db5fd 100644 --- a/ParseMail.hs +++ b/ParseMail.hs @@ -29,9 +29,9 @@ data Address = Mailbox M.Address | Group T.Text [M.Address] -readMail :: FilePath -> IO M.Mail -readMail p = - fromMIMEValue . parseMIMEMessage <$> T.readFile p +readMail :: T.Text -> M.Mail +readMail = + fromMIMEValue . parseMIMEMessage fromMIMEValue :: MIMEValue -> M.Mail |