mime 0.4.0.1 → 0.4.0.2

raw patch · 2 files changed

+3/−3 lines, 2 filesdep ~basedep ~text

Dependency ranges changed: base, text

Files

• Codec/MIME/Parse.hs +2/−2
• mime.cabal +1/−1

@@ -107,7 +107,7 @@     | 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']) t in a <> normalizeCRLF b    parseMIMEMessage :: T.Text -> MIMEValue parseMIMEMessage entity =@@ -263,7 +263,7 @@ 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   = ""

@@ -1,5 +1,5 @@ name:               mime-version:            0.4.0.1+version:            0.4.0.2 synopsis:           Working with MIME types. description:        Working with MIME types. category:           Codec