testsuite/tests/th/T8759.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell, PatternSynonyms #-}

module T8759 where

import Language.Haskell.TH

pattern P = ()

$( do info <- reify 'P
      reportWarning (show info)
      return [] )