git.iko.soy/typeable/hexml
on master help sign in
HLint
526c10dNeil Mitchell
src/Text/XML/Hexml.hs+1−1
compare with master
unifiedsplit
@@ -142,7 +142,7 @@ outer = nodeBS 2
142contents :: Node -> [Either BS.ByteString Node]
142contents :: Node -> [Either BS.ByteString Node]
143contents n@(Node src _ _) = f (strStart inner) outers
143contents n@(Node src _ _) = f (strStart inner) outers
144 where
144 where
145− f i [] = string i (strEnd inner) ++ []
145+ f i [] = string i (strEnd inner)
146 f i ((x, n):xs) = string i (strStart x) ++ Right n : f (strEnd x) xs
146 f i ((x, n):xs) = string i (strStart x) ++ Right n : f (strEnd x) xs
147
147
148 string start end | start == end = []
148 string start end | start == end = []