diff options
| -rw-r--r-- | .gitignore | 7 | ||||
| -rw-r--r-- | Codec/MIME/Parse.hs | 13 | ||||
| -rw-r--r-- | mime.cabal | 2 |
3 files changed, 18 insertions, 4 deletions
@@ -1 +1,8 @@ /dist +**.hi +**.o +**.swp +/.cabal-sandbox +*.swp +cabal.sandbox.config +**tags diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs index 2843903..f9dfeb2 100644 --- a/Codec/MIME/Parse.hs +++ b/Codec/MIME/Parse.hs @@ -26,6 +26,7 @@ module Codec.MIME.Parse import Codec.MIME.Type import Codec.MIME.Decode +import Control.Arrow(second) import Data.Char import Data.Maybe @@ -245,12 +246,18 @@ untilMatch a b | T.null a = Just b | otherwise = untilMatch a $ T.tail b matchUntil :: T.Text -> T.Text -> (T.Text, T.Text) -matchUntil _ "" = ("", "") -matchUntil str xs +-- searching str; returning parts before str and after str +matchUntil str = second (T.drop $ T.length str) . T.breakOn str + +{- +matchUntil' :: T.Text -> T.Text -> (T.Text, T.Text) +matchUntil' _ "" = ("", "") +matchUntil' str xs | T.null xs = mempty -- slow, but it'll do for now. | str `T.isPrefixOf` xs = ("", T.drop (T.length str) xs) - | otherwise = let (as,bs) = matchUntil str $ T.tail xs in (T.take 1 xs <> as, bs) + | otherwise = let (as,bs) = matchUntil' str $ T.tail xs in (T.take 1 xs <> as, bs) +-} isHSpace :: Char -> Bool isHSpace c = c == ' ' || c == '\t' @@ -1,5 +1,5 @@ name: mime -version: 0.4.0 +version: 0.4.0.1 synopsis: Working with MIME types. description: Working with MIME types. category: Codec |