ghc-exactprint-0.5.3.1: tests/examples/ghc80/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
 #-}