X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Frename%2Fshould_compile%2Frn037.hs;fp=ghc%2Ftests%2Frename%2Fshould_compile%2Frn037.hs;h=668d707a5c79690c2ad4cdec7168244b88f965de;hb=9f6cdd5da3a1556a34d66a7e5b39c1d7ba086fff;hp=0000000000000000000000000000000000000000;hpb=7da2408f0379012eb8d6d37d091f43045a6378a1;p=ghc-hetmet.git

diff --git a/ghc/tests/rename/should_compile/rn037.hs b/ghc/tests/rename/should_compile/rn037.hs
new file mode 100644
index 0000000..668d707
--- /dev/null
+++ b/ghc/tests/rename/should_compile/rn037.hs
@@ -0,0 +1,12 @@
+-- !!! Checking that you can hide a constructor
+module ShouldSucceed where
+
+import Rn037Help hiding( C )
+	-- C is the constructor, but we should
+	-- still be able to hide it
+
+f x = Rn037Help.C
+
+
+
+