HLint
commit526c10d1b694650d23e75969700730c78bcfa7a5
authorNeil Mitchell <ndmitchell@gmail.com>
dateWed 24 Jun 2020, 21:26 (6 years ago)
parent6b3c2e8
src/Text/XML/Hexml.hs+1−1
@@ -142,7 +142,7 @@ outer = nodeBS 2
142142contents :: Node -> [Either BS.ByteString Node]
143143contents n@(Node src _ _) = f (strStart inner) outers
144144 where
145− f i [] = string i (strEnd inner) ++ []
145+ f i [] = string i (strEnd inner)
146146 f i ((x, n):xs) = string i (strStart x) ++ Right n : f (strEnd x) xs
147147
148148 string start end | start == end = []