[project @ 1999-01-15 10:49:05 by sof]

[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..6436b57 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)
+-- !!! 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) []     = []