From 8a70e6c09a4c2fd768365d1aac18f4a3c9a30649 Mon Sep 17 00:00:00 2001 From: "andy@galois.com" Date: Tue, 8 Apr 2008 23:20:32 +0000 Subject: [PATCH] Fixing hpc combine and hpc map to use the correct help message --- utils/hpc/HpcCombine.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs index b44b79d..3c0ac0d 100644 --- a/utils/hpc/HpcCombine.hs +++ b/utils/hpc/HpcCombine.hs @@ -95,7 +95,7 @@ combine_main flags [first_file,second_file] = do case outputFile flags of "-" -> putStrLn (show tix) out -> writeTix out tix -combine_main flags [] = hpcError sum_plugin $ "need exactly two .tix files to combine" +combine_main flags [] = hpcError combine_plugin $ "need exactly two .tix files to combine" map_main :: Flags -> [String] -> IO () map_main flags [first_file] = do @@ -111,8 +111,8 @@ map_main flags [first_file] = do case outputFile flags of "-" -> putStrLn (show tix') out -> writeTix out tix' -map_main flags [] = hpcError sum_plugin $ "no .tix file specified" -map_main flags _ = hpcError sum_plugin $ "to many .tix files specified" +map_main flags [] = hpcError map_plugin $ "no .tix file specified" +map_main flags _ = hpcError map_plugin $ "to many .tix files specified" mergeTixFile :: Flags -> (Integer -> Integer -> Integer) -> Tix -> String -> IO Tix mergeTixFile flags fn tix file_name = do -- 1.7.10.4