summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorandy@galois.com <unknown>2008-04-08 23:20:32 +0000
committerandy@galois.com <unknown>2008-04-08 23:20:32 +0000
commit8a70e6c09a4c2fd768365d1aac18f4a3c9a30649 (patch)
treeb02b08833fd8766ea3ac549a37b9d5923bebb388
parente0fcf61dca4dfac99cb5417e1bc4cbee18822cf2 (diff)
downloadhaskell-8a70e6c09a4c2fd768365d1aac18f4a3c9a30649.tar.gz
Fixing hpc combine and hpc map to use the correct help message
-rw-r--r--utils/hpc/HpcCombine.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs
index b44b79d519..3c0ac0d22e 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