X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcCombine.hs;h=3c0ac0d22e117b3d8edfa169a78a320545a890f1;hb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;hp=f64dd674ccffc41d2f4a60720892996843d14e51;hpb=1267b64b521ac2099fc163e482118a72b93afa0b;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs
index f64dd67..3c0ac0d 100644
--- a/utils/hpc/HpcCombine.hs
+++ b/utils/hpc/HpcCombine.hs
@@ -57,7 +57,7 @@ map_options
 	. unionModuleOpt 
 
 map_plugin = Plugin { name = "map"
-	      	       , usage = "[OPTION] .. <TIX_FILE> [<TIX_FILE> [<TIX_FILE> ..]]" 
+	      	       , usage = "[OPTION] .. <TIX_FILE> "
 		       , options = map_options 
 		       , summary = "Map a function over a single .tix file"
 		       , implementation = map_main
@@ -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