Hlint: Error: Use mapMaybe

This commit is contained in:
marko.kocic 2009-09-22 12:35:31 +00:00
parent 52e167f5e4
commit d0baf650f2

View File

@ -18,7 +18,7 @@ findDeps base pkg = do
if not ex then return [] else do
src <- readFile hi
let imps = filter isImport (lines src)
return $ catMaybes $ map getTargetModule imps
return $ mapMaybe getTargetModule imps
where dotToSlash '.' = '/'
dotToSlash x = x