diff options
Diffstat (limited to 'compiler/coreSyn/CoreLint.hs')
-rw-r--r-- | compiler/coreSyn/CoreLint.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/coreSyn/CoreLint.hs b/compiler/coreSyn/CoreLint.hs index 91760c282b..a84f2fe029 100644 --- a/compiler/coreSyn/CoreLint.hs +++ b/compiler/coreSyn/CoreLint.hs @@ -2281,9 +2281,6 @@ markAllJoinsBadIf False m = m addGoodJoins :: [Var] -> LintM a -> LintM a addGoodJoins vars thing_inside - | null join_ids - = thing_inside - | otherwise = LintM $ \ env errs -> unLintM thing_inside (add_joins env) errs where add_joins env = env { le_joins = le_joins env `extendVarSetList` join_ids } |