[project @ 1997-09-05 14:11:05 by simonm]

[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds038.hs

diff --git a/ghc/tests/deSugar/should_compile/ds038.hs b/ghc/tests/deSugar/should_compile/ds038.hs
index ceffab1..14e60e9 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds038.hs
+++ b/ghc/tests/deSugar/should_compile/ds038.hs
@@ -1,6 +1,8 @@
 --!!! Jon Hill reported a bug in desugaring this in 0.09
 --!!! (recursive with n+k patts)
 --
+module ShouldSucceed where
+
 takeList :: Int -> [a] -> [a]
 takeList 0     _      = []
 takeList (n+1) []     = []