diff options
author | simonmar <unknown> | 2004-03-24 09:42:11 +0000 |
---|---|---|
committer | simonmar <unknown> | 2004-03-24 09:42:11 +0000 |
commit | 5c7560315272dabccaec7628f7a822df1d49402e (patch) | |
tree | 08c4d25c3b40ad1b57df9ce11a60efe70f713666 | |
parent | 19b6bb9916325f14cfef3725dcfa8bf750339cb6 (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.hs | 2 | ||||
-rw-r--r-- | examples/hide-bug/B.hs | 1 | ||||
-rw-r--r-- | examples/hide-bug/C.hs | 1 | ||||
-rw-r--r-- | examples/hide-bug/D.hs | 3 |
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 |