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 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
|
||||||
|
Loading…
Reference in New Issue
Block a user