haskell-src-exts-1.16.0: tests/examples/Rules.hs

{-# RULES "head/build" forall (g::forall b.(a->b->b)->b->b) . head (build g) = g (\x _ -> x) badHead #-}