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