X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Ftypecheck%2Fshould_compile%2Ftc079.hs;h=db07ad13254ee3a5034ba495fad0b07a4c1710b9;hb=ea138284b7343bb1810cfbd0284a608dc57f7d46;hp=d49f4ce43a6bca853b49e36775cecf28173af78a;hpb=3c6a193fa27d7bfd448ae4440a968b027f56969c;p=ghc-hetmet.git

diff --git a/ghc/tests/typecheck/should_compile/tc079.hs b/ghc/tests/typecheck/should_compile/tc079.hs
index d49f4ce..db07ad1 100644
--- a/ghc/tests/typecheck/should_compile/tc079.hs
+++ b/ghc/tests/typecheck/should_compile/tc079.hs
@@ -1,8 +1,8 @@
---!!! small class decl with local polymorphism;
---!!! "easy" to check default methods and such...
---!!! (this is the example given in TcClassDcl)
+-- !!! small class decl with local polymorphism;
+-- !!! "easy" to check default methods and such...
+-- !!! (this is the example given in TcClassDcl)
 --
-module Test where
+module ShouldSucceed where
 
 class Foo a where
     op1 :: a -> Bool