From c4a73b5b0fb7574bd519584c16b5be0675f3f430 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 27 May 2015 22:46:13 +0200
Subject: Add simple test case for arbitrary-depth list nesting.

---
 html-test/ref/Nesting.html | 49 ++++++++++++++++++++++++++++++++++++----------
 html-test/src/Nesting.hs   | 15 ++++++++++++++
 2 files changed, 54 insertions(+), 10 deletions(-)

diff --git a/html-test/ref/Nesting.html b/html-test/ref/Nesting.html
index 37ee7af3..542d6db7 100644
--- a/html-test/ref/Nesting.html
+++ b/html-test/ref/Nesting.html
@@ -73,6 +73,10 @@ window.onload = function () {pageLoad();setSynopsis("mini_Nesting.html");};
 	  ><a href=""
 	    >j</a
 	    > :: t</li
+	  ><li class="src short"
+	  ><a href=""
+	    >k</a
+	    > :: t</li
 	  ></ul
 	></div
       ><div id="interface"
@@ -285,16 +289,16 @@ with more of the indented list content.</p
 			  ><dd
 			  >No newline separation even in indented lists.
         We can have any paragraph level element that we normally
-        can, like headers<h3
-			    >Level 3 header</h3
-			    ><p
-			    >with some content&#8230;</p
-			    ><ul
-			    ><li
-			      >and even more lists inside</li
-			      ></ul
-			    ></dd
+        can, like headers</dd
 			  ></dl
+			><h3
+			>Level 3 header</h3
+			><p
+			>with some content&#8230;</p
+			><ul
+			><li
+			  >and even more lists inside</li
+			  ></ul
 			></li
 		      ></ol
 		    ></li
@@ -303,13 +307,38 @@ with more of the indented list content.</p
 	      ></dl
 	    ></div
 	  ></div
+	><div class="top"
+	><p class="src"
+	  ><a name="v:k" class="def"
+	    >k</a
+	    > :: t</p
+	  ><div class="doc"
+	  ><ul
+	    ><li
+	      >list may start at arbitrary depth</li
+	      ><li
+	      >and consecutive items at that depth
+      belong to the same list</li
+	      ><li
+	      ><p
+		>of course we can still</p
+		><ul
+		><li
+		  >nest items like we are used to</li
+		  ></ul
+		></li
+	      ><li
+	      >and then get back to initial list</li
+	      ></ul
+	    ></div
+	  ></div
 	></div
       ></div
     ><div id="footer"
     ><p
       >Produced by <a href=""
 	>Haddock</a
-	> version 2.15.0</p
+	> version 2.16.1</p
       ></div
     ></body
   ></html
diff --git a/html-test/src/Nesting.hs b/html-test/src/Nesting.hs
index 34177442..f88be87d 100644
--- a/html-test/src/Nesting.hs
+++ b/html-test/src/Nesting.hs
@@ -119,3 +119,18 @@ definition lists too.
 -}
 j :: t
 j = undefined
+
+{-|
+      - list may start at arbitrary depth
+
+      - and consecutive items at that depth
+      belong to the same list
+
+      - of course we can still
+
+          * nest items like we are used to
+
+      - and then get back to initial list
+-}
+k :: t
+k = undefined
-- 
cgit v1.2.3