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