From 81d7d5586e88caa9798d4c401bd28acc73e4e6e1 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Mon, 17 Jan 2011 19:17:14 +0000
Subject: [PATCH] Change an "if ... else return ()" into a "when"

---
 compiler/main/HscMain.lhs |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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
-- 
1.7.10.4