Fix a few hlint suggestions.

[dead/halcyon.git] / src / Mail.hs

diff --git a/src/Mail.hs b/src/Mail.hs
index e1884afb9daf0c9fa2df33b67b30e81f82ab79a9..8c1f25c89874eae68547f8323387b6116223419e 100644 (file)
--- 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"