Add support for blank lines in the result of examples

Result lines that only contain the string "<BLANKLINE>" are treated as a blank
line.

2 files changed, 17 insertions, 0 deletions

diff --git a/tests/html-tests/tests/Examples.hs b/tests/html-tests/tests/Examples.hs
index 7b703428..c8c450f1 100644
--- a/tests/html-tests/tests/Examples.hs
+++ b/tests/html-tests/tests/Examples.hs
@@ -28,6 +28,11 @@ module Examples where
 -- >>> isSpace 'a'
 -- False
 --
+-- >>> putStrLn "foo\n\nbar"
+-- foo
+-- <BLANKLINE>
+-- bar
+--
 fib :: Integer -> Integer
 fib 0 = 0
 fib 1 = 1
diff --git a/tests/html-tests/tests/Examples.html.ref b/tests/html-tests/tests/Examples.html.ref
index 69b2fda4..61fcff1c 100644
--- a/tests/html-tests/tests/Examples.html.ref
+++ b/tests/html-tests/tests/Examples.html.ref
@@ -136,6 +136,18 @@ window.onload = function () {pageLoad();setSynopsis("mini_Examples.html");};
 		></strong
 	      >False
 </pre
+	    ><pre class="screen"
+	    ><code class="prompt"
+	      >&gt;&gt;&gt; </code
+	      ><strong class="userinput"
+	      ><code
+		>putStrLn &quot;foo\n\nbar&quot;
+</code
+		></strong
+	      >foo
+
+bar
+</pre
 	    ></div
 	  ></div
 	></div