slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hlint: Error: Use mapMaybe

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 12:35:31 +00:00
parent 52e167f5e4
commit d0baf650f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/listbydeps.hs
View File

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