Start porting the Html renderer

3 files changed, 8 insertions, 3 deletions

diff --git a/examples/Test.hs b/examples/Test.hs
index 5e8c5d03..cfc09e53 100644
--- a/examples/Test.hs
+++ b/examples/Test.hs
@@ -97,6 +97,7 @@ module Test (
 -}
 
 	f',
+        hej
    ) where
 
 import Hidden
@@ -105,7 +106,7 @@ import Data.Maybe
 
 bla = Nothing
 
---hej = visible
+hej = visible
 
 -- | This comment applies to the /following/ declaration
 -- and it continues until the next non-comment line
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