diff --git a/overview.hs b/overview.hs index 82d6dd5e8..8cf6b2a19 100644 --- a/overview.hs +++ b/overview.hs @@ -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