X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;fp=compiler%2Fmain%2FHscMain.lhs;h=01ec74002d6d49a3d6c83a5194ae01836ffd0d8e;hp=627a49d5cca7e3247b2c84e469858e27bdf5f079;hb=81d7d5586e88caa9798d4c401bd28acc73e4e6e1;hpb=70730de36b69dd597052b35373d0f450d7a0020a

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