From d6cf6f9c75e08ce1760c2dbdee81775ba97a5f0c Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Mon, 31 Mar 2014 18:29:04 +0100 Subject: Drop leading whitespace in @-style blocks. Fixes #201. --- html-test/ref/Bug201.html | 102 ++++++++++++++++++++++++++++++++++++++++++++++ html-test/src/Bug201.hs | 28 +++++++++++++ 2 files changed, 130 insertions(+) create mode 100644 html-test/ref/Bug201.html create mode 100644 html-test/src/Bug201.hs (limited to 'html-test') diff --git a/html-test/ref/Bug201.html b/html-test/ref/Bug201.html new file mode 100644 index 00000000..893ccbef --- /dev/null +++ b/html-test/ref/Bug201.html @@ -0,0 +1,102 @@ + +Bug201

 

Safe HaskellSafe-Inferred

Bug201

Synopsis

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

Documentation

f :: ()

This leading whitespace
+should be dropped
+

g :: ()

 But this one
+ should not
+
this should
+be dropped
and so should this
+because there's a space before closing @
+
diff --git a/html-test/src/Bug201.hs b/html-test/src/Bug201.hs new file mode 100644 index 00000000..bf6cb9a9 --- /dev/null +++ b/html-test/src/Bug201.hs @@ -0,0 +1,28 @@ +-- We test that leading whitespace gets properly dropped (or not!) +-- from codeblocks +module Bug201 where + +-- | +-- @ +-- This leading whitespace +-- should be dropped +-- @ +f :: () +f = () + +{-| +@ + But this one + should not +@ + +> this should +> be dropped + +@ + and so should this + because there's a space before closing @ + @ +-} +g :: () +g = () -- cgit v1.2.3