diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-17 10:38:53 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-17 10:38:53 +0100 |
| commit | 79ee264a8df1c9c9617fbe109a3cdfc51bb3d42a (patch) | |
| tree | 99d089ec340b5e2ec5fa511a7fd594dc9bc0b575 /compiler/simplCore | |
| parent | b0f4c44ed777af599daf35035b0830b35e57fa4a (diff) | |
| download | haskell-79ee264a8df1c9c9617fbe109a3cdfc51bb3d42a.tar.gz | |
Pass DynFlags to the ru_try functions of built-in rules
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index bc991b3bf1..68c82f5718 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -1553,7 +1553,8 @@ tryRules env rules fn args call_cont | null rules = return Nothing | otherwise - = do { case lookupRule (activeRule env) (getUnfoldingInRuleMatch env) + = do { dflags <- getDynFlags + ; case lookupRule dflags (activeRule env) (getUnfoldingInRuleMatch env) (getInScope env) fn args rules of { Nothing -> return Nothing ; -- No rule matches Just (rule, rule_rhs) -> |