diff options
| -rw-r--r-- | utils/hpc/HpcFlags.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/utils/hpc/HpcFlags.hs b/utils/hpc/HpcFlags.hs index 2cbe0c19c3..38abe6315e 100644 --- a/utils/hpc/HpcFlags.hs +++ b/utils/hpc/HpcFlags.hs @@ -7,6 +7,7 @@ import Data.Maybe ( fromMaybe ) import qualified HpcSet as Set import Data.Char import Trace.Hpc.Tix +import System.Exit data Flags = Flags { outputFile :: String @@ -108,6 +109,12 @@ command_usage plugin = 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 |