summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBodigrim <andrew.lelechenko@gmail.com>2022-04-22 19:03:04 +0100
committerZubin Duggal <zubin.duggal@gmail.com>2022-05-25 19:03:35 +0530
commiteffc42a78cb9e9ed455d1bb0310701cdb6757f5a (patch)
treeb9a93b9017bb3ab03716a1df41f2bfcb41422233
parent25c7b2205e959bd7824c627a72750a7fe7b20166 (diff)
downloadhaskell-effc42a78cb9e9ed455d1bb0310701cdb6757f5a.tar.gz
Document behaviour of RULES with KnownNat
(cherry picked from commit f2c08124b30eb87482dc0ed1d7199aa58950e309)
-rw-r--r--docs/users_guide/exts/rewrite_rules.rst34
1 files changed, 34 insertions, 0 deletions
diff --git a/docs/users_guide/exts/rewrite_rules.rst b/docs/users_guide/exts/rewrite_rules.rst
index b384faeb9e..75ee2474a9 100644
--- a/docs/users_guide/exts/rewrite_rules.rst
+++ b/docs/users_guide/exts/rewrite_rules.rst
@@ -204,6 +204,40 @@ From a semantic point of view:
(b) large or a redex, then it would not be substituted, and the rule
would not fire.
+- GHC will never match a forall'd variable in a template with an expression
+ which contains locally bound variables. For example, it is permitted to write
+ a rule which contains a case expression::
+
+ {-# RULES
+ "test/case-tup" forall (x :: (Int, Int)) (y :: Int) (z :: Int).
+ test (case x of (l, r) -> y) z = case x of (l, r) -> test y z
+ #-}
+
+ But the rule will not match when ``y`` contains either of ``l`` or ``r`` because
+ they are locally bound. Therefore the following application will fail to trigger
+ the rule::
+
+ prog :: (Int, Int) -> (Int, Int)
+ prog x = test (case x of (p, q) -> p) 0
+
+ because ``y`` would have to match against ``p`` (which is locally bound)
+ but it will fire for::
+
+ prog :: (Int, Int) -> (Int, Int)
+ prog x = test (case x of (p, q) -> 0) 0
+
+ because ``y`` can match against ``0``.
+
+- A rule that has a forall binder with a polymorphic type, is likely to fail to fire. E. g., ::
+
+ {-# RULES forall (x :: forall a. Num a => a -> a). f x = blah #-}
+
+ Here ``x`` has a polymorphic type. This applies to a forall'd binder with a type class constraint, such as::
+
+ {-# RULES forall @m (x :: KnownNat m => Proxy m). g x = blah #-}
+
+ See `#21093 <https://gitlab.haskell.org/ghc/ghc/-/issues/21093>`_ for discussion.
+
.. _rules-inline:
How rules interact with ``INLINE``/``NOINLINE`` pragmas