testsuite/tests/th/T12403.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UnboxedTuples #-}
module Main where

import Language.Haskell.TH

data T = T (# Int, Int #)

$(return [])

main :: IO ()
main = putStrLn $(reify ''T >>= stringE . pprint)