summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/Rules.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Core/Rules.hs')
-rw-r--r--compiler/GHC/Core/Rules.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Rules.hs b/compiler/GHC/Core/Rules.hs
index 2eabc1db0c..14bcd4564f 100644
--- a/compiler/GHC/Core/Rules.hs
+++ b/compiler/GHC/Core/Rules.hs
@@ -387,8 +387,10 @@ pprRuleBase rules = pprUFM rules $ \rss ->
-- successful.
lookupRule :: RuleOpts -> InScopeEnv
-> (Activation -> Bool) -- When rule is active
- -> Id -> [CoreExpr]
- -> [CoreRule] -> Maybe (CoreRule, CoreExpr)
+ -> Id -- Function head
+ -> [CoreExpr] -- Args
+ -> [CoreRule] -- Rules
+ -> Maybe (CoreRule, CoreExpr)
-- See Note [Extra args in the target]
-- See comments on matchRule