ghc-exactprint-0.5.1.0: tests/examples/ghc8/export-type-synonym.hs
{-# LANGUAGE PatternSynonyms #-}
module Foo ( A(P) ) where
data A = A
data B = B
type C = B
pattern P :: C
pattern P = B
{-# LANGUAGE PatternSynonyms #-}
module Foo ( A(P) ) where
data A = A
data B = B
type C = B
pattern P :: C
pattern P = B