ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/mixed-pat-syn-record-sels.hs
{-# LANGUAGE PatternSynonyms #-}
module Foo where
pattern A { a } = Just a
pattern B { b } = Just b
foo :: Maybe a -> Maybe Bool
foo x = x { a = True, b = False }
{-# LANGUAGE PatternSynonyms #-}
module Foo where
pattern A { a } = Just a
pattern B { b } = Just b
foo :: Maybe a -> Maybe Bool
foo x = x { a = True, b = False }