diff options
| author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-22 23:40:00 +0200 |
|---|---|---|
| committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 00:10:07 +0200 |
| commit | ca8439b6787eb238d7b07544dfc728488f3c71b6 (patch) | |
| tree | 0f812affaa5c569248ee2c1c7e8b39c6e8a405c7 /Network | |
| parent | 121d703bcd3ecbaba031499070907251b5eae1a9 (diff) | |
lint
Diffstat (limited to 'Network')
| -rw-r--r-- | Network/Mail/Mime.hs | 4 |
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 |