diff options
| author | tv <tv@krebsco.de> | 2017-04-30 13:51:14 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2017-04-30 15:46:31 +0200 |
| commit | c13d585d103ed0156386803b70dacb7b3b9a21b1 (patch) | |
| tree | 67fa4b9035db9a2f55dcdfe8697a9227b70d1047 | |
| parent | 5a082498a2b73ce2c826debe4c7a35ce7b097a15 (diff) | |
Codec.MIME.Parse: replace tabs by spaces
| -rw-r--r-- | Codec/MIME/Parse.hs | 8 |
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) |