diff options
Diffstat (limited to 'Codec/MIME/Parse.hs')
| -rw-r--r-- | Codec/MIME/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs index f2d275d..2843903 100644 --- a/Codec/MIME/Parse.hs +++ b/Codec/MIME/Parse.hs @@ -122,7 +122,7 @@ parseHeaders str = findFieldName acc t | T.null t = Right "" | "\r\n" `T.isPrefixOf` t = Right $ T.drop 2 t - | ":" `T.isPrefixOf` t = Left (T.reverse $ T.dropWhile isHSpace acc, t) + | ":" `T.isPrefixOf` t = Left (T.reverse $ T.dropWhile isHSpace acc, T.drop 1 t) | otherwise = findFieldName (T.take 1 t <> acc) $ T.drop 1 t parseFieldValue nm xs |