X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Frename%2Fshould_compile%2Frn033.hs;h=87589e94846f274dbdfc2b22d50addbc6943385e;hb=ea659be5faea43df1b2c113d2f22947dff23367e;hp=c6cd70cf1fef777907df0c1b29b0d97232bcd495;hpb=4671b8bc31b75717329186f50159e2e9cbbf3719;p=ghc-hetmet.git

diff --git a/ghc/tests/rename/should_compile/rn033.hs b/ghc/tests/rename/should_compile/rn033.hs
index c6cd70c..87589e9 100644
--- 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.
-module ShouldSucceed where
+-- !!! Checking that lazy name clashing works
+module ShouldCompile where
 
 import List ( sort )
 
-ShouldSucceed.sort :: Int
-ShouldSucceed.sort = 3
+sort :: Int
+sort = 3
+
+foo :: Int
+foo = ShouldCompile.sort
+
+baz :: (Ord a) => [a] -> [a]
+baz = List.sort