diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:07:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 20:47:26 +0100 |
| commit | a5f5a70c41b4bce2715bf5d478171fbaf060cddf (patch) | |
| tree | e9be157af01bcb2c9a4ac51e01d3b9c71c0d4307 /compiler/simplCore/CSE.lhs | |
| parent | ea3a9edda14f952042fa262abd37cc4fa0c1dd6d (diff) | |
| download | haskell-sdoc.tar.gz | |
More DynFlags + SDocsdoc
Diffstat (limited to 'compiler/simplCore/CSE.lhs')
| -rw-r--r-- | compiler/simplCore/CSE.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/CSE.lhs b/compiler/simplCore/CSE.lhs index 5bec8f0c3d..0ab7b22a0c 100644 --- a/compiler/simplCore/CSE.lhs +++ b/compiler/simplCore/CSE.lhs @@ -329,7 +329,7 @@ extendCSEnv (CS cs in_scope sub) expr expr' where hash = hashExpr expr combine old new - = WARN( result `lengthExceeds` 4, short_msg $$ nest 2 long_msg ) result + = WARN( dflags, result `lengthExceeds` 4, short_msg $$ nest 2 long_msg ) result where result = new ++ old short_msg = ptext (sLit "extendCSEnv: long list, length") <+> int (length result) @@ -348,7 +348,7 @@ addBinder :: CSEnv -> Id -> (CSEnv, Id) addBinder (CS cs in_scope sub) v | not (v `elemInScopeSet` in_scope) = (CS cs (extendInScopeSet in_scope v) sub, v) | isId v = (CS cs (extendInScopeSet in_scope v') (extendVarEnv sub v v'), v') - | otherwise = WARN( True, ppr v ) + | otherwise = WARN( dflags, True, ppr v ) (CS emptyUFM in_scope sub, v) -- This last case is the unusual situation where we have shadowing of -- a type variable; we have to discard the CSE mapping |