aboutsummaryrefslogtreecommitdiff
path: root/Rfc1342.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Rfc1342.hs')
-rw-r--r--Rfc1342.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Rfc1342.hs b/Rfc1342.hs
index f4966fb..c2dad42 100644
--- a/Rfc1342.hs
+++ b/Rfc1342.hs
@@ -44,7 +44,7 @@ decodeWithCharset dec ('?':c:'?':cs) | toLower c == 'b' = dataDecodeWith B64.dec
rest = if "?=" `isPrefixOf` rest'
then drop 2 rest'
else rest'
- dataDecodeWith datadec = (_2spc . dec . unwrap . datadec $ encoded) ++ (decodeField $ dropWhile isSpace rest)
+ dataDecodeWith datadec = (_2spc . dec . unwrap . datadec $ encoded) ++ decodeField rest -- ++ (decodeField $ dropWhile isSpace rest)
unwrap :: Maybe [Word8] -> String
unwrap Nothing = []
nihil fit ex nihilo