X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FMail.hs;h=8c1f25c89874eae68547f8323387b6116223419e;hp=e1884afb9daf0c9fa2df33b67b30e81f82ab79a9;hb=dd6cea3dc5e830691b1da442fcf91602e4cf94aa;hpb=4cc476a2714260980899ca5358196bbf5226b3c2

diff --git a/src/Mail.hs b/src/Mail.hs
index e1884af..8c1f25c 100644
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -44,7 +44,7 @@ instance Show Message where
              (body m) ]
     where
       formatted_headers =
-        if (length (headers m) == 0)
+        if null (headers m)
         then ""
         else (intercalate "\n" (headers m)) ++ "\n"