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