[project @ 2001-01-29 08:42:54 by simonpj]

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

diff --git a/ghc/tests/deSugar/should_compile/ds048.hs b/ghc/tests/deSugar/should_compile/ds048.hs
index 2003430..9274aac 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds048.hs
+++ b/ghc/tests/deSugar/should_compile/ds048.hs
@@ -1,5 +1,5 @@
 -- !!! newtypes with a labelled field.
-module ShouldSucceed where
+module ShouldCompile where
 
 newtype Foo = Foo { x :: Int } deriving (Eq)