blob: 3d33341e4d3990f572907ecaead90d337efbcb97 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TemplateHaskell #-}
module T13837 where
import Language.Haskell.TH.Lib
import Language.Haskell.TH.Syntax
test_local_tyfam_expansion :: String
test_local_tyfam_expansion =
$(do fam_name <- newName "Fam"
stringE . show =<< qReifyInstances fam_name [])
|
