testsuite/tests/th/T22818.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeData #-}
module T22818 where

import Language.Haskell.TH
import System.IO

type data T = MkT

$(pure [])

$(do i <- reify ''MkT
     runIO $ do
       hPutStrLn stderr $ pprint i
       hFlush stderr
     pure [])