X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fnofib-analyse%2FSlurp.hs;h=6d3183e0babcf9ee6f0ddd36d8c0d40c03bf2655;hb=6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f;hp=5387a8ff0fc7e082a71d3d545c3a8b4cad260270;hpb=7f54886b21c58cdb733c0e26b2a7710e6ed9586e;p=ghc-hetmet.git

diff --git a/utils/nofib-analyse/Slurp.hs b/utils/nofib-analyse/Slurp.hs
index 5387a8f..6d3183e 100644
--- a/utils/nofib-analyse/Slurp.hs
+++ b/utils/nofib-analyse/Slurp.hs
@@ -79,7 +79,7 @@ Various banner lines:
 
 -- NB. the hyphen must come last (or first) inside [...] to stand for itself.
 banner_re :: Regex
-banner_re = mkRegex "^==nofib==[ \t]+([A-Za-z0-9_-]+):[ \t]+(size of|time to link|time to run|time to compile)[ \t]+([A-Za-z0-9_-]+)(\\.o)?[ \t]+follows"
+banner_re = mkRegex "^==nofib==[ \t]+([A-Za-z0-9_-]+):[ \t]+(size of|time to link|time to run|time to compile|time to compile & run)[ \t]+([A-Za-z0-9_-]+)(\\.o)?[ \t]+follows"
 
 {-
 This regexp for the output of "time" works on FreeBSD, other versions
@@ -227,6 +227,8 @@ process_chunk (progName : what : modName : _, chk) =
  case what of
         "time to compile" -> parse_compile_time progName modName chk
         "time to run"     -> parse_run_time progName (reverse chk) emptyResults NotDone
+        "time to compile & run" -> parse_compile_time progName modName chk
+                                ++ 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)