summaryrefslogtreecommitdiffstats
path: root/Codec/MIME/Parse.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-06-26 23:02:09 +0200
committertv <tv@shackspace.de>2015-06-26 23:02:09 +0200
commitbfd854e05207a073eaa983c49f27c37555ccfce5 (patch)
treef932957a7180423f4fc387a12d17b251c0b67684 /Codec/MIME/Parse.hs
parentcd4a939f40b41ef624fca9615d9fa285d5046e29 (diff)
bump compatibility to nixos-15.06pre64030.e1af50c
Diffstat (limited to 'Codec/MIME/Parse.hs')
-rw-r--r--Codec/MIME/Parse.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs
index 803e4b2..221def0 100644
--- a/Codec/MIME/Parse.hs
+++ b/Codec/MIME/Parse.hs
@@ -107,7 +107,7 @@ normalizeCRLF t
| T.null t = ""
| "\r\n" `T.isPrefixOf` t = "\r\n" <> normalizeCRLF (T.drop 2 t)
| any (`T.isPrefixOf` t) ["\r", "\n"] = "\r\n" <> normalizeCRLF (T.drop 1 t)
- | otherwise = let (a,b) = T.break (`elem` "\r\n") t in a <> normalizeCRLF b
+ | otherwise = let (a,b) = T.break (`elem` ("\r\n" :: String)) t in a <> normalizeCRLF b
parseMIMEMessage :: T.Text -> MIMEValue
parseMIMEMessage entity =
@@ -263,7 +263,7 @@ isHSpace :: Char -> Bool
isHSpace c = c == ' ' || c == '\t'
isTSpecial :: Char -> Bool
-isTSpecial x = x `elem` "()<>@,;:\\\"/[]?=" -- "
+isTSpecial x = x `elem` ("()<>@,;:\\\"/[]?=" :: String) -- "
dropFoldingWSP :: T.Text -> T.Text
dropFoldingWSP t | T.null t = ""