import qualified HpcSet as Set
import Data.Char
import Trace.Hpc.Tix
+import System.Exit
data Flags = Flags
{ outputFile :: String
then ""
else usageInfo "\n\nOptions:\n" (options plugin)
+hpcError :: Plugin -> String -> IO a
+hpcError plugin msg = do
+ putStrLn $ "Error: " ++ msg
+ command_usage plugin
+ exitFailure
+
-------------------------------------------------------------------------------
data Plugin = Plugin { name :: String