aboutsummaryrefslogtreecommitdiff
path: root/Email.hs
diff options
context:
space:
mode:
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 4d310c4..659d96b 100644
--- a/Email.hs
+++ b/Email.hs
@@ -17,7 +17,7 @@ getBody msg =
Single c -> c
Multi mvs -> case firstTextPart mvs of
Just mv -> unwrapContent . mime_val_content $ mv
- Nothing -> "Buggity Buggity Buggity!"
+ Nothing -> "This email has no displayable content."
where
unwrapContent (Single c) = c
nihil fit ex nihilo