From 04929712f248dbbdf200693c0751dc925fb03c61 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 1 Mar 2015 12:06:04 +0100
Subject: test5: add date header

---
 ParseMail.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'ParseMail.hs')

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
-- 
cgit v1.2.3