ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/RulePragma.hs

module Data.Text.Internal.Fusion.Common where

{-#
  RULES "STREAM map/map fusion" forall f g s.
     map f (map g s) = map (\x -> f (g x)) s
 #-}