diff options
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 |