From 70e137ead1809516991ff4152842be08561404ee Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 28 Jul 2003 13:30:35 +0000 Subject: [haddock @ 2003-07-28 13:30:35 by simonmar] Add tests for a couple of bugs. --- examples/A.hs | 2 ++ examples/B.hs | 2 ++ examples/Bug1.hs | 4 ++++ examples/Bug2.hs | 4 ++++ examples/Makefile | 2 ++ 5 files changed, 14 insertions(+) create mode 100644 examples/A.hs create mode 100644 examples/B.hs create mode 100644 examples/Bug1.hs create mode 100644 examples/Bug2.hs (limited to 'examples') diff --git a/examples/A.hs b/examples/A.hs new file mode 100644 index 00000000..4a344a24 --- /dev/null +++ b/examples/A.hs @@ -0,0 +1,2 @@ +module A where +data A = A diff --git a/examples/B.hs b/examples/B.hs new file mode 100644 index 00000000..3a31507e --- /dev/null +++ b/examples/B.hs @@ -0,0 +1,2 @@ +module B ( module A ) where +import A diff --git a/examples/Bug1.hs b/examples/Bug1.hs new file mode 100644 index 00000000..a7151b7f --- /dev/null +++ b/examples/Bug1.hs @@ -0,0 +1,4 @@ +module Bug1 where + +-- we should have different anchors for constructors and types/classes. +data T = T diff --git a/examples/Bug2.hs b/examples/Bug2.hs new file mode 100644 index 00000000..9121922e --- /dev/null +++ b/examples/Bug2.hs @@ -0,0 +1,4 @@ +module Bug2 ( x ) where +import B +x :: A +x = A diff --git a/examples/Makefile b/examples/Makefile index 7fd20f45..034358ec 100644 --- a/examples/Makefile +++ b/examples/Makefile @@ -6,4 +6,6 @@ all :: index.html index.html : $(HS_SRCS) $(HADDOCK_INPLACE) $(HADDOCK_INPLACE) -h $(HS_SRCS) +CLEAN_FILES += index.html + include $(TOP)/mk/target.mk -- cgit v1.2.3