From: simonpj <unknown>
Date: Wed, 29 Dec 1999 12:26:51 +0000 (+0000)
Subject: [project @ 1999-12-29 12:26:51 by simonpj]
X-Git-Tag: Approximately_9120_patches~5359
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9b828bafef4209f72a43c0a289be85c9fd8003e8;p=ghc-hetmet.git

[project @ 1999-12-29 12:26:51 by simonpj]
Improve rn029, remove dup rn033
---

diff --git a/ghc/tests/rename/should_compile/rn029.hs b/ghc/tests/rename/should_compile/rn029.hs
index c6cd70c..354fef5 100644
--- a/ghc/tests/rename/should_compile/rn029.hs
+++ b/ghc/tests/rename/should_compile/rn029.hs
@@ -1,8 +1,17 @@
--- !!! Checking that lazy name clashing work.
+-- !!! Checking that lazy name clashing works.
 module ShouldSucceed where
 
-import List ( sort )
+import List ( reverse, sort )
+
+sort :: Int	-- Clashes with List.sort, 
+sort = 4	-- but never used, so OK	
+	
+
+reverse :: Int	-- Clashes with List.reverse, 
+reverse = 3	-- but the only uses are qualified
+
+x = ShouldSucceed.reverse
+
+y = List.reverse
 
-ShouldSucceed.sort :: Int
-ShouldSucceed.sort = 3