X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fnofib-analyse%2FMain.hs;fp=utils%2Fnofib-analyse%2FMain.hs;h=7a1991ec5383ff497380901351328eab962a0faf;hb=382fce427106197b5e7dec81165af20329ac6cc2;hp=af2c92839c09a86abb0680b09ce314de36bfb344;hpb=cf50eb85863f592240750fa6f421a1d753be1ab3;p=ghc-hetmet.git

diff --git a/utils/nofib-analyse/Main.hs b/utils/nofib-analyse/Main.hs
index af2c928..7a1991e 100644
--- a/utils/nofib-analyse/Main.hs
+++ b/utils/nofib-analyse/Main.hs
@@ -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