Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
382fce42
Commit
382fce42
authored
Dec 12, 2006
by
Ian Lynagh
Browse files
Beautify a bit
parent
cf50eb85
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/nofib-analyse/Main.hs
View file @
382fce42
...
...
@@ -19,6 +19,7 @@ import System.Console.GetOpt
import
System.Exit
(
exitWith
,
ExitCode
(
..
)
)
import
Numeric
(
showFloat
,
showFFloat
,
showSigned
)
import
Control.Monad
import
Data.Maybe
(
isNothing
)
import
Data.Char
import
System.IO
...
...
@@ -36,22 +37,16 @@ usageHeader = "usage: nofib-analyse [OPTION...] <logfile1> <logfile2> ..."
main
=
do
if
not
(
null
cmdline_errors
)
||
OptHelp
`
elem
`
flags
then
die
(
concat
cmdline_errors
++
usageInfo
usageHeader
argInfo
)
else
do
when
(
not
(
null
cmdline_errors
)
||
OptHelp
`
elem
`
flags
)
$
die
(
concat
cmdline_errors
++
usageInfo
usageHeader
argInfo
)
let
{
html
=
OptHTMLOutput
`
elem
`
flags
;
latex
=
OptLaTeXOutput
`
elem
`
flags
;
ascii
=
OptASCIIOutput
`
elem
`
flags
}
if
ascii
&&
html
then
die
"Can't produce both ASCII and HTML"
else
do
if
devs
&&
nodevs
then
die
"Can't both display and hide deviations"
else
do
when
(
ascii
&&
html
)
$
die
"Can't produce both ASCII and HTML"
when
(
devs
&&
nodevs
)
$
die
"Can't both display and hide deviations"
results
<-
parse_logs
other_args
...
...
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