aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonmar <unknown>2004-03-24 09:42:11 +0000
committersimonmar <unknown>2004-03-24 09:42:11 +0000
commit5c7560315272dabccaec7628f7a822df1d49402e (patch)
tree08c4d25c3b40ad1b57df9ce11a60efe70f713666
parent19b6bb9916325f14cfef3725dcfa8bf750339cb6 (diff)
[haddock @ 2004-03-24 09:42:10 by simonmar]
hiding bug from Ross Paterson (fixed in rev 1.59 of Main.hs)
-rw-r--r--examples/hide-bug/A.hs2
-rw-r--r--examples/hide-bug/B.hs1
-rw-r--r--examples/hide-bug/C.hs1
-rw-r--r--examples/hide-bug/D.hs3
4 files changed, 7 insertions, 0 deletions
diff --git a/examples/hide-bug/A.hs b/examples/hide-bug/A.hs
new file mode 100644
index 00000000..a9386a40
--- /dev/null
+++ b/examples/hide-bug/A.hs
@@ -0,0 +1,2 @@
+-- #hide
+module A where { data T = MkT; f :: T; f = MkT }
diff --git a/examples/hide-bug/B.hs b/examples/hide-bug/B.hs
new file mode 100644
index 00000000..7c5b9dfe
--- /dev/null
+++ b/examples/hide-bug/B.hs
@@ -0,0 +1 @@
+module B(f, T) where import A
diff --git a/examples/hide-bug/C.hs b/examples/hide-bug/C.hs
new file mode 100644
index 00000000..363221d9
--- /dev/null
+++ b/examples/hide-bug/C.hs
@@ -0,0 +1 @@
+module C(module B) where import B
diff --git a/examples/hide-bug/D.hs b/examples/hide-bug/D.hs
new file mode 100644
index 00000000..30ac8acc
--- /dev/null
+++ b/examples/hide-bug/D.hs
@@ -0,0 +1,3 @@
+-- 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(f) where import C