Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
3c23b14c
Commit
3c23b14c
authored
Jul 11, 2007
by
andy@galois.com
Browse files
Adding hpcError, that improves error messages with usage
parent
8788d157
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/hpc/HpcFlags.hs
View file @
3c23b14c
...
...
@@ -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\n
Options:
\n
"
(
options
plugin
)
hpcError
::
Plugin
->
String
->
IO
a
hpcError
plugin
msg
=
do
putStrLn
$
"Error: "
++
msg
command_usage
plugin
exitFailure
-------------------------------------------------------------------------------
data
Plugin
=
Plugin
{
name
::
String
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment