Fix hlint
commitfa6764a14077dd6364ca8760aea65881beeb0922
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 9 Aug 2016, 23:14 (10 years ago)
parent3ee670e
src/Reflex/Dom/Old.hs+1−1
@@ -228,7 +228,7 @@ namedNodeMapGetNames :: DOM.NamedNodeMap -> IO (Set Text)
228228namedNodeMapGetNames self = do
229229 l <- NNM.getLength self
230230 let locations = if l == 0 then [] else [0..l-1] -- Can't use 0..l-1 if l is 0 because l is unsigned and will wrap around
231− liftM (Set.fromList . catMaybes) $ forM locations $ \i -> do
231+ fmap (Set.fromList . catMaybes) $ forM locations $ \i -> do
232232 Just n <- NNM.item self i
233233 getNodeName n
234234