summaryrefslogtreecommitdiffstats
path: root/Codec
diff options
context:
space:
mode:
Diffstat (limited to 'Codec')
-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 = ""