Fix #11287.
[ghc.git] / testsuite / tests / th / T8759.hs
1 {-# LANGUAGE TemplateHaskell, PatternSynonyms #-}
2
3 module T8759 where
4
5 import Language.Haskell.TH
6
7 pattern P = ()
8
9 $( do info <- reify 'P
10 reportWarning (show info)
11 return [] )