diff options
author | andy@galois.com <unknown> | 2008-04-08 23:20:32 +0000 |
---|---|---|
committer | andy@galois.com <unknown> | 2008-04-08 23:20:32 +0000 |
commit | 8a70e6c09a4c2fd768365d1aac18f4a3c9a30649 (patch) | |
tree | b02b08833fd8766ea3ac549a37b9d5923bebb388 | |
parent | e0fcf61dca4dfac99cb5417e1bc4cbee18822cf2 (diff) | |
download | haskell-8a70e6c09a4c2fd768365d1aac18f4a3c9a30649.tar.gz |
Fixing hpc combine and hpc map to use the correct help message
-rw-r--r-- | utils/hpc/HpcCombine.hs | 6 |
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 |