summaryrefslogtreecommitdiffstats
path: root/Network/Mail
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-03-08 19:44:30 +0100
committertv <tv@shackspace.de>2015-03-08 19:44:30 +0100
commit875af11011824c60e866ef8be61baf11497e8cc6 (patch)
tree134ff6667e6fdb34e741523dafbc0f5c44cf723a /Network/Mail
parente9aa6ec03d8e1237827237efff5061f2278b2202 (diff)
Use CRLF as line break
Diffstat (limited to 'Network/Mail')
-rw-r--r--Network/Mail/Mime.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/Network/Mail/Mime.hs b/Network/Mail/Mime.hs
index c2753c5..70c4ab8 100644
--- a/Network/Mail/Mime.hs
+++ b/Network/Mail/Mime.hs
@@ -186,7 +186,7 @@ showPairs mtype parts gen =
])
]
builder = mconcat
- [ mconcat $ intersperse (fromByteString "\n")
+ [ mconcat $ intersperse (fromByteString "\r\n")
$ map (showBoundPart $ Boundary b) parts
, showBoundEnd $ Boundary b
]
@@ -211,7 +211,7 @@ renderMail g0 (Mail from to cc bcc headers parts) =
, mconcat $ map showHeader headers
, showHeader ("MIME-Version", "1.0")
, mconcat $ map showHeader finalHeaders
- , fromByteString "\n"
+ , fromByteString "\r\n"
, finalBuilder
]
@@ -220,7 +220,7 @@ showHeader (k, v) = mconcat
[ fromByteString k
, fromByteString ": "
, encodeIfNeeded v
- , fromByteString "\n"
+ , fromByteString "\r\n"
]
showAddressHeader :: (S.ByteString, [Address]) -> Builder
@@ -231,7 +231,7 @@ showAddressHeader (k, as) =
[ fromByteString k
, fromByteString ": "
, mconcat (intersperse (fromByteString ", ") . map showAddress $ as)
- , fromByteString "\n"
+ , fromByteString "\r\n"
]
-- |
@@ -249,15 +249,15 @@ showBoundPart :: Boundary -> (Headers, Builder) -> Builder
showBoundPart (Boundary b) (headers, content) = mconcat
[ fromByteString "--"
, fromText b
- , fromByteString "\n"
+ , fromByteString "\r\n"
, mconcat $ map showHeader headers
- , fromByteString "\n"
+ , fromByteString "\r\n"
, content
]
showBoundEnd :: Boundary -> Builder
showBoundEnd (Boundary b) = mconcat
- [ fromByteString "\n--"
+ [ fromByteString "\r\n--"
, fromText b
, fromByteString "--"
]