From 8f9a1146972021379eadad3fc2a005871db882c8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 18 Aug 2003 11:48:24 +0000
Subject: [haddock @ 2003-08-18 11:48:24 by simonmar] Two bugs from Sven.

---
 examples/Bug1.hs | 4 +++-
 examples/Bug3.hs | 6 ++++++
 examples/Bug4.hs | 4 ++++
 3 files changed, 13 insertions(+), 1 deletion(-)
 create mode 100644 examples/Bug3.hs
 create mode 100644 examples/Bug4.hs

diff --git a/examples/Bug1.hs b/examples/Bug1.hs
index a7151b7f..af1ed4d3 100644
--- a/examples/Bug1.hs
+++ b/examples/Bug1.hs
@@ -1,4 +1,6 @@
 module Bug1 where
 
--- we should have different anchors for constructors and types/classes.
+-- | We should have different anchors for constructors and types\/classes.  This
+-- hyperlink should point to the type constructor by default: 'T'.
 data T = T
+
diff --git a/examples/Bug3.hs b/examples/Bug3.hs
new file mode 100644
index 00000000..cfda7e4c
--- /dev/null
+++ b/examples/Bug3.hs
@@ -0,0 +1,6 @@
+module Bug3 where
+
+-- | /multi-line
+-- emphasis/
+foo :: Int
+
diff --git a/examples/Bug4.hs b/examples/Bug4.hs
new file mode 100644
index 00000000..bb3c4fe2
--- /dev/null
+++ b/examples/Bug4.hs
@@ -0,0 +1,4 @@
+module Bug4 where
+-- | don't use apostrophe's in the wrong place's
+foo :: Int
+
-- 
cgit v1.2.3