- "time to compile" -> parse_compile_time prog mod chk
- "time to run" -> parse_run_time prog (reverse chk) emptyResults NotDone
- "time to link" -> parse_link_time prog chk
- "size of" -> parse_size prog mod chk
- _ -> error ("process_chunk: "++what)
-
-parse_compile_time prog mod [] = []
-parse_compile_time prog mod (l:ls) =
+ "time to compile" -> parse_compile_time progName modName chk
+ "time to run" -> parse_run_time progName (reverse chk) emptyResults NotDone
+ "time to link" -> parse_link_time progName chk
+ "size of" -> parse_size progName modName chk
+ _ -> error ("process_chunk: "++what)
+process_chunk _ = error "process_chunk: Can't happen"
+
+parse_compile_time :: String -> String -> [String] -> [(String, Results)]
+parse_compile_time _ _ [] = []
+parse_compile_time progName modName (l:ls) =