summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Codec/MIME/Parse.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs
index 221def0..c5392fe 100644
--- a/Codec/MIME/Parse.hs
+++ b/Codec/MIME/Parse.hs
@@ -139,12 +139,12 @@ parseMultipart mty body =
", has no required boundary parameter. Defaulting to text/plain") $
(nullMIMEValue{ mime_val_type = defaultType
, mime_val_disp = Nothing
- , mime_val_content = Single body
- }, "")
+ , mime_val_content = Single body
+ }, "")
Just bnd -> (nullMIMEValue { mime_val_type = mty
, mime_val_disp = Nothing
- , mime_val_content = Multi vals
- }, rs)
+ , mime_val_content = Multi vals
+ }, rs)
where (vals,rs) = splitMulti bnd body
splitMulti :: T.Text -> T.Text -> ([MIMEValue], T.Text)