git.iko.soy/typeable/html-parse
on master help sign in
Use inlined form of attoparsec's takeWhile
3f61cb1Ben Gamari
Text/HTML/Parser.hs+4−1
compare with master
unifiedsplit
@@ -17,7 +17,8 @@ import Data.Monoid
17import Control.Monad (guard)
17import Control.Monad (guard)
18import Control.DeepSeq
18import Control.DeepSeq
19
19
20−import Data.Attoparsec.Text
20+import Data.Attoparsec.Text hiding (takeWhile)
21+import qualified Data.Attoparsec.Text as A
21import Data.Text (Text)
22import Data.Text (Text)
22import qualified Data.Text as T
23import qualified Data.Text as T
23import Data.Text.Lazy.Builder (Builder)
24import Data.Text.Lazy.Builder (Builder)
@@ -42,6 +43,8 @@ data Token
42 | Doctype !Text
43 | Doctype !Text
43 deriving (Show, Ord, Eq, Generic)
44 deriving (Show, Ord, Eq, Generic)
44
45
46+takeWhile = A.takeWhile'
47+
45data Attr = Attr !AttrName !AttrValue
48data Attr = Attr !AttrName !AttrValue
46 deriving (Show, Eq, Ord)
49 deriving (Show, Eq, Ord)
47
50