testsuite/tests/th/T9262.hs


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

{-# LANGUAGE TemplateHaskell #-}

module T9262 where

import Language.Haskell.TH
import Language.Haskell.TH.Ppr
import System.IO

$(do insts <- reifyInstances ''Eq [ListT `AppT` VarT (mkName "a")]
     runIO $ putStrLn $ pprint insts
     runIO $ hFlush stdout
     return [] )