summaryrefslogtreecommitdiffstats
path: root/Network
diff options
context:
space:
mode:
Diffstat (limited to 'Network')
-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 "--"
]