From 9b828bafef4209f72a43c0a289be85c9fd8003e8 Mon Sep 17 00:00:00 2001 From: simonpj 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 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 -- 1.7.10.4