ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/BundleInternal.hs
{-# LANGUAGE PatternSynonyms #-}
module BundleInternal (A(NewA,MkA, NoA)) where
newtype A = NewA (Maybe Int)
pattern MkA n = NewA (Just n)
pattern NoA = NewA Nothing
{-# LANGUAGE PatternSynonyms #-}
module BundleInternal (A(NewA,MkA, NoA)) where
newtype A = NewA (Maybe Int)
pattern MkA n = NewA (Just n)
pattern NoA = NewA Nothing