[project @ 1999-08-20 13:13:03 by simonpj]

[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc088.hs

diff --git a/ghc/tests/typecheck/should_compile/tc088.hs b/ghc/tests/typecheck/should_compile/tc088.hs
index e1b8b88..ce4b6be 100644 (file)
--- a/ghc/tests/typecheck/should_compile/tc088.hs
+++ b/ghc/tests/typecheck/should_compile/tc088.hs
@@ -1,6 +1,8 @@
 -- Check that "->" is an instance of Eval
 
-module Foo where
+module ShouldSucceed where
+
+instance Show (a->b)
 
 instance (Eq b) => Eq (a -> b) where
        (==) f g = error "attempt to compare functions"