ghc-exactprint-0.5.1.0: tests/examples/ghc8/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 }