From 3c23b14c467a436d7fd95a80a4aceae8ea8913c7 Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Wed, 11 Jul 2007 07:24:54 +0000
Subject: [PATCH] Adding hpcError, that improves error messages with usage

---
 utils/hpc/HpcFlags.hs |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/utils/hpc/HpcFlags.hs b/utils/hpc/HpcFlags.hs
index 2cbe0c1..38abe63 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
-- 
1.7.10.4