. 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
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
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