ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/export-record-selector.hs
{-# LANGUAGE PatternSynonyms #-}
module Foo ( A(foo) ) where
data A a = A a
pattern P :: Int -> A Int
pattern P{foo} = A foo
{-# LANGUAGE PatternSynonyms #-}
module Foo ( A(foo) ) where
data A a = A a
pattern P :: Int -> A Int
pattern P{foo} = A foo