From 9b828bafef4209f72a43c0a289be85c9fd8003e8 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 29 Dec 1999 12:26:51 +0000
Subject: [PATCH] [project @ 1999-12-29 12:26:51 by simonpj] Improve rn029,
 remove dup rn033

---
 ghc/tests/rename/should_compile/rn029.hs | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/ghc/tests/rename/should_compile/rn029.hs b/ghc/tests/rename/should_compile/rn029.hs
index c6cd70cf1fef..354fef5b056b 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
 
-- 
GitLab