diff options
| -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) |