From: Ian Lynagh <igloo@earth.li>
Date: Mon, 17 Jan 2011 19:17:14 +0000 (+0000)
Subject: Change an "if ... else return ()" into a "when"
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=81d7d5586e88caa9798d4c401bd28acc73e4e6e1

Change an "if ... else return ()" into a "when"
---

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 627a49d..01ec740 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -1257,15 +1257,13 @@ hscCompileCoreExpr hsc_env srcspan ds_expr
 
   	-- Lint if necessary
   	-- ToDo: improve SrcLoc
-    if lint_on then 
+    when lint_on $
        let ictxt = hsc_IC hsc_env
            tyvars = varSetElems (tyVarsOfTypes (map idType (ic_tmp_ids ictxt)))
        in
            case lintUnfolding noSrcLoc tyvars prepd_expr of
   	      Just err -> pprPanic "hscCompileCoreExpr" err
   	      Nothing  -> return ()
-    else
-       return ()
 
           -- Convert to BCOs
     bcos <- coreExprToBCOs dflags prepd_expr