projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e0fcf61
)
Fixing hpc combine and hpc map to use the correct help message
author
andy@galois.com
<unknown>
Tue, 8 Apr 2008 23:20:32 +0000
(23:20 +0000)
committer
andy@galois.com
<unknown>
Tue, 8 Apr 2008 23:20:32 +0000
(23:20 +0000)
utils/hpc/HpcCombine.hs
patch
|
blob
|
history
diff --git
a/utils/hpc/HpcCombine.hs
b/utils/hpc/HpcCombine.hs
index
b44b79d
..
3c0ac0d
100644
(file)
--- 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
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
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'
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
mergeTixFile :: Flags -> (Integer -> Integer -> Integer) -> Tix -> String -> IO Tix
mergeTixFile flags fn tix file_name = do