Detect unhandled ghc output lines in Slurp
authorMax Bolingbroke <batterseapower@hotmail.com>
Thu, 23 Feb 2012 19:28:02 +0000 (19:28 +0000)
committerMax Bolingbroke <batterseapower@hotmail.com>
Thu, 23 Feb 2012 19:28:02 +0000 (19:28 +0000)
nofib-analyse/Slurp.hs

index 43653a4..68d99b7 100644 (file)
@@ -9,6 +9,7 @@ module Slurp (Status(..), Results(..), ResultTable, parse_log) where
 import Control.Monad
 import qualified Data.Map as Map
 import Data.Map (Map)
+import Data.List (isPrefixOf)
 import Text.Regex
 -- import Debug.Trace
 
@@ -411,7 +412,8 @@ parse_run_time prog (l:ls) res ex =
                         [gc0_count] [gc0] [gc0_elapsed] [gc1_count] [gc1] [gc1_elapsed] [bal]
                         [gc_work'] Nothing Nothing Nothing Nothing [in_use];
 
-            Nothing ->
+            Nothing | "<<ghc" `isPrefixOf` l -> error $ "Failed to parse GHC output " ++ show l
+                    | otherwise ->
 
         case matchRegex wrong_output l of {
             Just ["stdout"] ->