Use data con name instead of parent in lookupRecFieldOcc
[ghc.git] / testsuite / tests / rename / should_compile / T14747A.hs
1 {-# LANGUAGE PatternSynonyms #-}
2
3 module T14747A where
4
5 pattern S{x} = [x]