projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8788d15
)
Adding hpcError, that improves error messages with usage
author
andy@galois.com
<unknown>
Wed, 11 Jul 2007 07:24:54 +0000
(07:24 +0000)
committer
andy@galois.com
<unknown>
Wed, 11 Jul 2007 07:24:54 +0000
(07:24 +0000)
utils/hpc/HpcFlags.hs
patch
|
blob
|
history
diff --git
a/utils/hpc/HpcFlags.hs
b/utils/hpc/HpcFlags.hs
index
2cbe0c1
..
38abe63
100644
(file)
--- 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 qualified HpcSet as Set
import Data.Char
import Trace.Hpc.Tix
+import System.Exit
data Flags = Flags
{ outputFile :: String
data Flags = Flags
{ outputFile :: String
@@
-108,6
+109,12
@@
command_usage plugin =
then ""
else usageInfo "\n\nOptions:\n" (options 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
-------------------------------------------------------------------------------
data Plugin = Plugin { name :: String