From 526067188c056a5d73e7e44671ca98baf12d666b Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Wed, 25 Jun 2014 10:01:55 +0200 Subject: Fix anchors. Closes #308. --- html-test/ref/Bug308.html | 111 +++++++++++++++++++++++++++++++++++ html-test/ref/Bug308CrossModule.html | 91 ++++++++++++++++++++++++++++ html-test/src/Bug308.hs | 21 +++++++ html-test/src/Bug308CrossModule.hs | 17 ++++++ 4 files changed, 240 insertions(+) create mode 100644 html-test/ref/Bug308.html create mode 100644 html-test/ref/Bug308CrossModule.html create mode 100644 html-test/src/Bug308.hs create mode 100644 html-test/src/Bug308CrossModule.hs (limited to 'html-test') diff --git a/html-test/ref/Bug308.html b/html-test/ref/Bug308.html new file mode 100644 index 00000000..517a1cd9 --- /dev/null +++ b/html-test/ref/Bug308.html @@ -0,0 +1,111 @@ + +Bug308

 

Safe HaskellSafe-Inferred

Bug308

Synopsis

  • f :: ()
  • g :: ()

Documentation

f :: ()

start followed by middle and end

g :: ()

start Bug308

startOldStyle Bug308

middle Bug308

end Bug308

diff --git a/html-test/ref/Bug308CrossModule.html b/html-test/ref/Bug308CrossModule.html new file mode 100644 index 00000000..6a053d3c --- /dev/null +++ b/html-test/ref/Bug308CrossModule.html @@ -0,0 +1,91 @@ + +Bug308CrossModule

 

Safe HaskellSafe-Inferred

Bug308CrossModule

Synopsis

  • h :: ()

Documentation

h :: ()

start Bug308

startOldStyle Bug308

middle Bug308

end Bug308

diff --git a/html-test/src/Bug308.hs b/html-test/src/Bug308.hs new file mode 100644 index 00000000..3adb3746 --- /dev/null +++ b/html-test/src/Bug308.hs @@ -0,0 +1,21 @@ +-- From 2.14.x onwards we were forgetting to swallow ‘#’ as a special +-- character resulting in broken anchors if they accured +-- mid-paragraph. Here we check that anchors get generated as +-- expected. +module Bug308 where + +-- | start#startAnchor# followed by middle#middleAnchor# and end#endAnchor# +f :: () +f = () + +{-| +start "Bug308#startAnchor" + +startOldStyle "Bug308\#startAnchor" + +middle "Bug308#middleAnchor" + +end "Bug308#middleAnchor" +-} +g :: () +g = () diff --git a/html-test/src/Bug308CrossModule.hs b/html-test/src/Bug308CrossModule.hs new file mode 100644 index 00000000..589aa69e --- /dev/null +++ b/html-test/src/Bug308CrossModule.hs @@ -0,0 +1,17 @@ +-- Just like Bug308 module but here we test that referring to anchors +-- from other modules works. +module Bug308CrossModule where + +import Bug308 + +{-| +start "Bug308#startAnchor" + +startOldStyle "Bug308\#startAnchor" + +middle "Bug308#middleAnchor" + +end "Bug308#middleAnchor" +-} +h :: () +h = () -- cgit v1.2.3