summaryrefslogtreecommitdiffstats
path: root/Network/Mail/Mime.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Network/Mail/Mime.hs')
-rw-r--r--Network/Mail/Mime.hs4
1 files changed, 2 insertions, 2 deletions
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