X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Ftypecheck%2Fshould_succeed%2Ftc081.hs;h=6590550cf670ae95778a5c35457645eb7473e89e;hb=216bfb01a138932092eab3076c85648f5eee99b3;hp=27c29329ae5ffaf26ad23683bb8b44f1a7e84c4c;hpb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc081.hs b/ghc/compiler/tests/typecheck/should_succeed/tc081.hs
index 27c2932..6590550 100644
--- a/ghc/compiler/tests/typecheck/should_succeed/tc081.hs
+++ b/ghc/compiler/tests/typecheck/should_succeed/tc081.hs
@@ -1,5 +1,6 @@
 --!!! an example Simon made up
 --
+module ShouldSucceed where
 
 f x = (x+1, x<3, g True, g 'c')
 	where