From ca8439b6787eb238d7b07544dfc728488f3c71b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 23:40:00 +0200
Subject: lint

---
 Network/Mail/Mime.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Network')

diff --git a/Network/Mail/Mime.hs b/Network/Mail/Mime.hs
index ac5ec9a..8fd9fe1 100644
--- a/Network/Mail/Mime.hs
+++ b/Network/Mail/Mime.hs
@@ -143,7 +143,7 @@ partToPair (Part contentType encoding disposition headers content) =
     (headers', builder)
   where
     headers' =
-        ((:) ("Content-Type", contentType))
+        (:) ("Content-Type", contentType)
       $ (case encoding of
             None -> id
             Base64 -> (:) ("Content-Transfer-Encoding", "base64")
@@ -156,7 +156,7 @@ partToPair (Part contentType encoding disposition headers content) =
             Just fn ->
                 (:) ("Content-Disposition", "attachment; filename="
                                             `T.append` fn))
-      $ headers
+      headers
     builder =
         case encoding of
             None -> fromWriteList writeByteString $ L.toChunks content
-- 
cgit v1.2.3