summaryrefslogtreecommitdiffstats
path: root/Codec/MIME/Parse.hs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2017-04-30 13:51:14 +0200
committertv <tv@krebsco.de>2017-04-30 15:46:31 +0200
commitc13d585d103ed0156386803b70dacb7b3b9a21b1 (patch)
tree67fa4b9035db9a2f55dcdfe8697a9227b70d1047 /Codec/MIME/Parse.hs
parent5a082498a2b73ce2c826debe4c7a35ce7b097a15 (diff)
Codec.MIME.Parse: replace tabs by spaces
Diffstat (limited to 'Codec/MIME/Parse.hs')
-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)