diff options
| author | simonpj <unknown> | 1999-12-29 12:26:51 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-12-29 12:26:51 +0000 |
| commit | 9b828bafef4209f72a43c0a289be85c9fd8003e8 (patch) | |
| tree | 1adead0a7771478939d567193479583dd4fc7160 | |
| parent | 8fb61d0a36abdaf5e082569c9e4b3e828a79e4fc (diff) | |
| download | haskell-9b828bafef4209f72a43c0a289be85c9fd8003e8.tar.gz | |
[project @ 1999-12-29 12:26:51 by simonpj]
Improve rn029, remove dup rn033
| -rw-r--r-- | ghc/tests/rename/should_compile/rn029.hs | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/ghc/tests/rename/should_compile/rn029.hs b/ghc/tests/rename/should_compile/rn029.hs index c6cd70cf1f..354fef5b05 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 |