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