2 files changed, 6 insertions, 2 deletions
diff --git a/examples/hide-bug/B.hs b/examples/hide-bug/B.hs
index f2ef544a..eeaa8290 100644
--- a/examples/hide-bug/B.hs
+++ b/examples/hide-bug/B.hs
@@ -1,3 +1,5 @@
-module B(Test) where 
+module B(Test, vis) where 
+
+vis = id
 
 data Test = Test
diff --git a/examples/hide-bug/D.hs b/examples/hide-bug/D.hs
index a9203a7c..e8ce5744 100644
--- a/examples/hide-bug/D.hs
+++ b/examples/hide-bug/D.hs
@@ -1,5 +1,7 @@
 -- The link to the type T in the doc for this module should point to 
 -- B.T, not A.T.  Bug fixed in rev 1.59 of Main.hs.
-module D(Test) where 
+module D(Test, hej) where 
 
 import B
+
+hej = vis