Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / patsyn / should_fail / poly-export-fail2.hs
1 {-# LANGUAGE PatternSynonyms #-}
2 module Foo (A(P)) where
3
4 data A = A
5
6 data B = B
7
8 pattern P :: () => (f ~ B) => f
9 pattern P = B