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

overview fix

Browse Source
This commit is contained in:
Simon Michael 2007-05-01 06:48:06 +00:00
parent eea5ce7a42
commit b8614fc006
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
overview.hs
View File

@ -17,6 +17,7 @@ main = do
let modules = concat $ map ((++ ".hs ") . dropWhile (== ' ')) preamble let modules = concat $ map ((++ ".hs ") . dropWhile (== ' ')) preamble
let grep = "grep -H '^\\w[^=]*::' " ++ modules let grep = "grep -H '^\\w[^=]*::' " ++ modules
(inp, out, err, pid) <- runInteractiveCommand grep (inp, out, err, pid) <- runInteractiveCommand grep
waitForProcess pid
grepoutput <- hGetContents out grepoutput <- hGetContents out
let groups = groupBy (\a b -> samefile a b) $ lines grepoutput let groups = groupBy (\a b -> samefile a b) $ lines grepoutput
sequence $ map printgroup groups sequence $ map printgroup groups