testsuite/tests/th/T6114.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}
module T6114 where
import Language.Haskell.TH

$(do
   xName <- newName "x"
   instanceType <- [t| $(varT xName) |]
   _ <- reifyInstances ''Eq [instanceType]
   return []
  )