aboutsummaryrefslogtreecommitdiff
path: root/html-test
diff options
context:
space:
mode:
Diffstat (limited to 'html-test')
-rw-r--r--html-test/ref/TitledPicture.html (renamed from html-test/ref/DeprecationMessageParseError.html)62
-rw-r--r--html-test/src/DeprecationMessageParseError.hs12
-rw-r--r--html-test/src/TitledPicture.hs7
-rw-r--r--html-test/src/Unicode.hs (renamed from html-test/src/Unicode.hs.disabled)0
4 files changed, 43 insertions, 38 deletions
diff --git a/html-test/ref/DeprecationMessageParseError.html b/html-test/ref/TitledPicture.html
index c71ab1a7..34788690 100644
--- a/html-test/ref/DeprecationMessageParseError.html
+++ b/html-test/ref/TitledPicture.html
@@ -3,13 +3,13 @@
><head
><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"
/><title
- >DeprecationMessageParseError</title
+ >TitledPicture</title
><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean"
/><script src="haddock-util.js" type="text/javascript"
></script
><script type="text/javascript"
>//<![CDATA[
-window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessageParseError.html");};
+window.onload = function () {pageLoad();setSynopsis("mini_TitledPicture.html");};
//]]>
</script
></head
@@ -39,22 +39,7 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars
></tr
></table
><p class="caption"
- >DeprecationMessageParseError</p
- ></div
- ><div id="description"
- ><p class="caption"
- >Description</p
- ><div class="doc"
- ><p
- >What is tested here:
-</p
- ><ul
- ><li
- > If parsing of a deprecation message fails, the message is included
- verbatim.
-</li
- ></ul
- ></div
+ >TitledPicture</p
></div
><div id="synopsis"
><p id="control.syn" class="caption expander" onclick="toggleSection('syn')"
@@ -64,7 +49,13 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars
><a href=""
>foo</a
> :: <a href=""
- >Int</a
+ >Integer</a
+ ></li
+ ><li class="src short"
+ ><a href=""
+ >bar</a
+ > :: <a href=""
+ >Integer</a
></li
></ul
></div
@@ -76,15 +67,34 @@ window.onload = function () {pageLoad();setSynopsis("mini_DeprecationMessagePars
><a name="v:foo" class="def"
>foo</a
> :: <a href=""
- >Int</a
+ >Integer</a
+ ></p
+ ><div class="doc"
+ ><p
+ >Picture for <code
+ ><a href=""
+ >foo</a
+ ></code
+ > without a title <img src="bar"
+ />
+</p
+ ></div
+ ></div
+ ><div class="top"
+ ><p class="src"
+ ><a name="v:bar" class="def"
+ >bar</a
+ > :: <a href=""
+ >Integer</a
></p
><div class="doc"
- ><div class="warning"
- ><p
- >Deprecated: use @bar instead</p
- ></div
- ><p
- >some documentation for foo
+ ><p
+ >Picture for <code
+ ><a href=""
+ >bar</a
+ ></code
+ > with title <img src="un&#8739;&#8705;&#8728;" title="&#948;&#8712;"
+ />
</p
></div
></div
diff --git a/html-test/src/DeprecationMessageParseError.hs b/html-test/src/DeprecationMessageParseError.hs
deleted file mode 100644
index 2f8fb492..00000000
--- a/html-test/src/DeprecationMessageParseError.hs
+++ /dev/null
@@ -1,12 +0,0 @@
--- |
--- What is tested here:
---
--- * If parsing of a deprecation message fails, the message is included
--- verbatim.
---
-module DeprecationMessageParseError where
-
--- | some documentation for foo
-foo :: Int
-foo = 23
-{-# DEPRECATED foo "use @bar instead" #-}
diff --git a/html-test/src/TitledPicture.hs b/html-test/src/TitledPicture.hs
new file mode 100644
index 00000000..7029d98a
--- /dev/null
+++ b/html-test/src/TitledPicture.hs
@@ -0,0 +1,7 @@
+module TitledPicture where
+
+-- | Picture for 'foo' without a title <<bar>>
+foo = 5
+
+-- | Picture for 'bar' with title <<un∣∁∘ δ∈>>
+bar = 6
diff --git a/html-test/src/Unicode.hs.disabled b/html-test/src/Unicode.hs
index d5bbf445..d5bbf445 100644
--- a/html-test/src/Unicode.hs.disabled
+++ b/html-test/src/Unicode.hs