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