path: root/testsuite/tests/ghc-regress/ghci/scripts/T4127a.script

:set -XTemplateHaskell
Language.Haskell.TH.runQ $ [d| f = undefined; class Foo x where {  f :: x -> x }; instance Foo Int where { f = id } |]