[project @ 2000-11-15 17:07:34 by simonpj]

[ghc-hetmet.git] / ghc / tests / rename / should_compile / rn033.hs

diff --git a/ghc/tests/rename/should_compile/rn033.hs b/ghc/tests/rename/should_compile/rn033.hs
index c6cd70c..87589e9 100644 (file)
--- a/ghc/tests/rename/should_compile/rn033.hs
+++ b/ghc/tests/rename/should_compile/rn033.hs
@@ -1,8 +1,14 @@
--- !!! Checking that lazy name clashing work.
-module ShouldSucceed where
+-- !!! Checking that lazy name clashing works
+module ShouldCompile where
 
 import List ( sort )
 
-ShouldSucceed.sort :: Int
-ShouldSucceed.sort = 3
+sort :: Int
+sort = 3
+
+foo :: Int
+foo = ShouldCompile.sort
+
+baz :: (Ord a) => [a] -> [a]
+baz = List.sort