Add test case for #7117
[ghc.git] / testsuite / tests / ghci / scripts / T4127a.script
1 :set -XTemplateHaskell\r
2 Language.Haskell.TH.runQ $ [d| f = undefined; class Foo x where {  f :: x -> x }; instance Foo Int where { f = id } |]\r