aboutsummaryrefslogtreecommitdiff
path: root/Email.hs
diff options
context:
space:
mode:
authorRaúl Benencia <rul@kalgan.cc>2013-09-03 20:24:51 -0300
committerRaúl Benencia <rul@kalgan.cc>2013-09-03 20:24:51 -0300
commit84fa12fef1736d04ee79e40cebaadadda262f063 (patch)
tree4842389a50b1c0f76b3d9a27ef3f562adac87b57 /Email.hs
parentc91af8d1f85f876eb7119ce8406385cf570d3886 (diff)
Mark as read functionality
Diffstat (limited to 'Email.hs')
-rw-r--r--Email.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Email.hs b/Email.hs
index 659d96b..db6f17b 100644
--- a/Email.hs
+++ b/Email.hs
@@ -20,7 +20,7 @@ getBody msg =
Nothing -> "This email has no displayable content."
where
unwrapContent (Single c) = c
-
+
-- hackish function for showing the email. In he future the logic of this
-- function should be improved.
firstTextPart [] = Nothing
nihil fit ex nihilo