[project @ 2000-03-23 17:45:17 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..62aba91 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.
+-- !!! Checking that lazy name clashing works
 module ShouldSucceed where
 
 import List ( sort )
 
-ShouldSucceed.sort :: Int
-ShouldSucceed.sort = 3
+sort :: Int
+sort = 3
+
+foo :: Int
+foo = ShouldSucceed.sort
+
+baz :: (Ord a) => [a] -> [a]
+baz = List.sort