ghc-exactprint-1.3.0: tests/examples/ghc92/ConPat.hs
module ConPat where
{-# RULES
"infix" forall a. let x1:x2:xs = flipFirst a in f x2 x1 = let x1:x2:xs = a in f x1 x2
#-}
module ConPat where
{-# RULES
"infix" forall a. let x1:x2:xs = flipFirst a in f x2 x1 = let x1:x2:xs = a in f x1 x2
#-}