aboutsummaryrefslogtreecommitdiff
path: root/html-test/src
diff options
context:
space:
mode:
authorAlec Theriault <alec.theriault@gmail.com>2019-02-26 08:46:45 -0800
committerAlec Theriault <alec.theriault@gmail.com>2019-02-26 19:14:59 -0800
commitb682041ed1cbeaf5aa501f85e4e46a6d2e39da3a (patch)
tree6ce1d082d44e12af408d8c9d9210297b846d159d /html-test/src
parenta5199600c39d25d7b71dcb2328000c1c49ad95a2 (diff)
Fix bogus identifier defaulting
This avoids a situation in which an identifier would get defaulted to a completely different identifier. Prior to this commit, the 'Bug1035' test case would hyperlink 'Foo' into 'Bar'! Fixes #1035.
Diffstat (limited to 'html-test/src')
-rw-r--r--html-test/src/Bug1035.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/html-test/src/Bug1035.hs b/html-test/src/Bug1035.hs
new file mode 100644
index 00000000..3516c08f
--- /dev/null
+++ b/html-test/src/Bug1035.hs
@@ -0,0 +1,9 @@
+module Bug1035 where
+
+data Foo = Bar
+
+data Bar = Foo
+
+-- | A link to 'Bar'
+foo :: ()
+foo = ()