From bfd854e05207a073eaa983c49f27c37555ccfce5 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 26 Jun 2015 23:02:09 +0200 Subject: bump compatibility to nixos-15.06pre64030.e1af50c --- Codec/MIME/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Codec') 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 = "" -- cgit v1.2.3