diff options
| author | tv <tv@shackspace.de> | 2015-03-08 19:44:30 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-03-08 19:44:30 +0100 |
| commit | 875af11011824c60e866ef8be61baf11497e8cc6 (patch) | |
| tree | 134ff6667e6fdb34e741523dafbc0f5c44cf723a | |
| parent | e9aa6ec03d8e1237827237efff5061f2278b2202 (diff) | |
Use CRLF as line break
| -rw-r--r-- | Network/Mail/Mime.hs | 14 |
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 "--" ] |