diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-01-17 19:17:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-01-17 19:17:14 +0000 |
| commit | 81d7d5586e88caa9798d4c401bd28acc73e4e6e1 (patch) | |
| tree | 00f97247c6d8fd9d61b67e922340bdb9281ff103 | |
| parent | 70730de36b69dd597052b35373d0f450d7a0020a (diff) | |
| download | haskell-81d7d5586e88caa9798d4c401bd28acc73e4e6e1.tar.gz | |
Change an "if ... else return ()" into a "when"
| -rw-r--r-- | compiler/main/HscMain.lhs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index 627a49d5cc..01ec74002d 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 |