path: root/testsuite/tests/ghc-regress/ghci/scripts/ghci006.hs

module Ghci006 where

data Q = forall x . Show x => Q x
showQ (Q x) = show x

-- associated bug is that at the interpreter command line,
--   showQ (Q "foo") crashed the interpreter.