mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 18:29:36 +03:00
overview fix
This commit is contained in:
parent
eea5ce7a42
commit
b8614fc006
@ -17,6 +17,7 @@ main = do
|
||||
let modules = concat $ map ((++ ".hs ") . dropWhile (== ' ')) preamble
|
||||
let grep = "grep -H '^\\w[^=]*::' " ++ modules
|
||||
(inp, out, err, pid) <- runInteractiveCommand grep
|
||||
waitForProcess pid
|
||||
grepoutput <- hGetContents out
|
||||
let groups = groupBy (\a b -> samefile a b) $ lines grepoutput
|
||||
sequence $ map printgroup groups
|
||||
|
Loading…
Reference in New Issue
Block a user