ghc-exactprint-0.5.3.1: tests/examples/ghc80/records-check-sels.hs
{-# LANGUAGE PatternSynonyms #-}
module Qux where
-- Make sure selectors aren't generated for normal synonyms
pattern Uni a = Just a
pattern a :+: b = (a, b)
qux = a (Just True)
{-# LANGUAGE PatternSynonyms #-}
module Qux where
-- Make sure selectors aren't generated for normal synonyms
pattern Uni a = Just a
pattern a :+: b = (a, b)
qux = a (Just True)