Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / patsyn / should_fail / export-ps-rec-sel.hs
1 {-# LANGUAGE PatternSynonyms #-}
2 module Foo( R(P,x)) where
3
4 data Q = Q Int
5
6 data R = R
7
8 pattern P{x} = Q x