Tue Nov 28 11:33:39 UTC 2017

Repository : ssh://git@git.haskell.org/haddock

On branches: 2.17.3.1-spanfix,alexbiehl-patch-1,ghc-8.0,ghc-8.0-facebook,ghc-head,ghc-head1,haddock-quick,headdock-library-1.4.5,ie_avails,issue-303,issue-475,master,pr-filter-maps,pr/cabal-desc,travis,v2.16,v2.17,v2.17.3,v2.18,wip-located-module-as,wip/D2418,wip/T11080-open-data-kinds,wip/T11258,wip/T11430,wip/T12105,wip/T12105-2,wip/T12942,wip/T13163,wip/T14529,wip/T3384,wip/embelleshed-rdr,wip/new-tree-one-param,wip/rae,wip/remove-frames,wip/remove-frames1,wip/revert-ttg-2017-11-20,wip/ttg-2017-10-13,wip/ttg-2017-10-31,wip/ttg-2017-11-06,wip/ttg2-2017-11-10,wip/ttg3-2017-11-12,wip/ttg4-constraints-2017-11-13,wip/ttg6-unrevert-2017-11-22
Link       : http://git.haskell.org/haddock.git/commitdiff/66c91a3c20d18f2a2f9ccfbbc7a04bddd5507008

>---------------------------------------------------------------

commit 66c91a3c20d18f2a2f9ccfbbc7a04bddd5507008
Author: Łukasz Hanuszczak <lukasz.hanuszczak at gmail.com>
Date:   Thu Aug 6 21:22:06 2015 +0200

    Rename advanced types test case and accept new output.


>---------------------------------------------------------------

66c91a3c20d18f2a2f9ccfbbc7a04bddd5507008
 html-test/ref/AdvanceTypes.html                    |  97 -----------------
 html-test/ref/{Bug85.html => PromotedTypes.html}   | 116 ++++++++++++++++-----
 .../src/{AdvanceTypes.hs => PromotedTypes.hs}      |   4 +-
 3 files changed, 94 insertions(+), 123 deletions(-)

diff --git a/html-test/ref/AdvanceTypes.html b/html-test/ref/AdvanceTypes.html
deleted file mode 100644
index f608efe..0000000
--- a/html-test/ref/AdvanceTypes.html
+++ /dev/null
@@ -1,97 +0,0 @@
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml"
-><head
-  ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"
-     /><title
-    >AdvanceTypes</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_AdvanceTypes.html");};
-//]]>
-</script
-    ></head
-  ><body
-  ><div id="package-header"
-    ><ul class="links" id="page-menu"
-      ><li
-	><a href=""
-	  >Contents</a
-	  ></li
-	><li
-	><a href=""
-	  >Index</a
-	  ></li
-	></ul
-      ><p class="caption empty"
-      > </p
-      ></div
-    ><div id="content"
-    ><div id="module-header"
-      ><table class="info"
-	><tr
-	  ><th
-	    >Safe Haskell</th
-	    ><td
-	    >Safe</td
-	    ></tr
-	  ></table
-	><p class="caption"
-	>AdvanceTypes</p
-	></div
-      ><div id="interface"
-      ><h1
-	>Documentation</h1
-	><div class="top"
-	><p class="src"
-	  ><span class="keyword"
-	    >data</span
-	    > <a href="" id="t:Pattern" class="def"
-	    >Pattern</a
-	    > :: [*] -> * <span class="keyword"
-	    >where</span
-	    ></p
-	  ><div class="subs constructors"
-	  ><p class="caption"
-	    >Constructors</p
-	    ><table
-	    ><tr
-	      ><td class="src"
-		><a href="" id="v:Nil" class="def"
-		  >Nil</a
-		  > ::  <a href=""
-		  >Pattern</a
-		  > []</td
-		><td class="doc empty"
-		> </td
-		></tr
-	      ><tr
-	      ><td class="src"
-		><a href="" id="v:Cons" class="def"
-		  >Cons</a
-		  > ::  <a href=""
-		  >Maybe</a
-		  > h -> <a href=""
-		  >Pattern</a
-		  > t -> <a href=""
-		  >Pattern</a
-		  > (h : t)</td
-		><td class="doc empty"
-		> </td
-		></tr
-	      ></table
-	    ></div
-	  ></div
-	></div
-      ></div
-    ><div id="footer"
-    ><p
-      >Produced by <a href=""
-	>Haddock</a
-	> version 2.16.2</p
-      ></div
-    ></body
-  ></html
->
diff --git a/html-test/ref/Bug85.html b/html-test/ref/PromotedTypes.html
similarity index 52%
copy from html-test/ref/Bug85.html
copy to html-test/ref/PromotedTypes.html
index e1f0431..db42f63 100644
--- a/html-test/ref/Bug85.html
+++ b/html-test/ref/PromotedTypes.html
@@ -3,13 +3,13 @@
 ><head
   ><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"
      /><title
-    >Bug85</title
+    >PromotedTypes</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_Bug85.html");};
+window.onload = function () {pageLoad();setSynopsis("mini_PromotedTypes.html");};
 //]]>
 </script
     ></head
@@ -39,7 +39,7 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	    ></tr
 	  ></table
 	><p class="caption"
-	>Bug85</p
+	>PromotedTypes</p
 	></div
       ><div id="interface"
       ><h1
@@ -48,9 +48,41 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	><p class="src"
 	  ><span class="keyword"
 	    >data</span
-	    > <a href="" id="t:Foo" class="def"
-	    >Foo</a
-	    > :: (* -> *) -> * -> * <span class="keyword"
+	    > <a href="" id="t:RevList" class="def"
+	    >RevList</a
+	    > a</p
+	  ><div class="subs constructors"
+	  ><p class="caption"
+	    >Constructors</p
+	    ><table
+	    ><tr
+	      ><td class="src"
+		><a href="" id="v:RNil" class="def"
+		  >RNil</a
+		  ></td
+		><td class="doc empty"
+		> </td
+		></tr
+	      ><tr
+	      ><td class="src"
+		>(<a href=""
+		  >RevList</a
+		  > a) <a href="" id="v::-62-" class="def"
+		  >:></a
+		  > a</td
+		><td class="doc empty"
+		> </td
+		></tr
+	      ></table
+	    ></div
+	  ></div
+	><div class="top"
+	><p class="src"
+	  ><span class="keyword"
+	    >data</span
+	    > <a href="" id="t:Pattern" class="def"
+	    >Pattern</a
+	    > :: [*] -> * <span class="keyword"
 	    >where</span
 	    ></p
 	  ><div class="subs constructors"
@@ -59,11 +91,25 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	    ><table
 	    ><tr
 	      ><td class="src"
-		><a href="" id="v:Bar" class="def"
-		  >Bar</a
-		  > ::  f x -> <a href=""
-		  >Foo</a
-		  > f (f x)</td
+		><a href="" id="v:Nil" class="def"
+		  >Nil</a
+		  > ::  <a href=""
+		  >Pattern</a
+		  > '[]</td
+		><td class="doc empty"
+		> </td
+		></tr
+	      ><tr
+	      ><td class="src"
+		><a href="" id="v:Cons" class="def"
+		  >Cons</a
+		  > ::  <a href=""
+		  >Maybe</a
+		  > h -> <a href=""
+		  >Pattern</a
+		  > t -> <a href=""
+		  >Pattern</a
+		  > (h ': t)</td
 		><td class="doc empty"
 		> </td
 		></tr
@@ -74,9 +120,11 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	><p class="src"
 	  ><span class="keyword"
 	    >data</span
-	    > <a href="" id="t:Baz" class="def"
-	    >Baz</a
-	    > :: * <span class="keyword"
+	    > <a href="" id="t:RevPattern" class="def"
+	    >RevPattern</a
+	    > :: <a href=""
+	    >RevList</a
+	    > * -> * <span class="keyword"
 	    >where</span
 	    ></p
 	  ><div class="subs constructors"
@@ -85,14 +133,32 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	    ><table
 	    ><tr
 	      ><td class="src"
-		><a href="" id="v:Baz-39-" class="def"
-		  >Baz'</a
+		><a href="" id="v:RevNil" class="def"
+		  >RevNil</a
 		  > ::  <a href=""
-		  >Baz</a
+		  >RevPattern</a
+		  > <a href=""
+		  >RNil</a
 		  ></td
 		><td class="doc empty"
 		> </td
 		></tr
+	      ><tr
+	      ><td class="src"
+		><a href="" id="v:RevCons" class="def"
+		  >RevCons</a
+		  > ::  <a href=""
+		  >Maybe</a
+		  > h -> <a href=""
+		  >RevPattern</a
+		  > t -> <a href=""
+		  >RevPattern</a
+		  > (t <a href=""
+		  >:></a
+		  > h)</td
+		><td class="doc empty"
+		> </td
+		></tr
 	      ></table
 	    ></div
 	  ></div
@@ -100,9 +166,9 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	><p class="src"
 	  ><span class="keyword"
 	    >data</span
-	    > <a href="" id="t:Qux" class="def"
-	    >Qux</a
-	    > <span class="keyword"
+	    > <a href="" id="t:Tuple" class="def"
+	    >Tuple</a
+	    > :: (*, *) -> * <span class="keyword"
 	    >where</span
 	    ></p
 	  ><div class="subs constructors"
@@ -111,11 +177,11 @@ window.onload = function () {pageLoad();setSynopsis("mini_Bug85.html");};
 	    ><table
 	    ><tr
 	      ><td class="src"
-		><a href="" id="v:Quux" class="def"
-		  >Quux</a
-		  > ::  <a href=""
-		  >Qux</a
-		  ></td
+		><a href="" id="v:Tuple" class="def"
+		  >Tuple</a
+		  > ::  a -> b -> <a href=""
+		  >Tuple</a
+		  > '(a, b)</td
 		><td class="doc empty"
 		> </td
 		></tr
diff --git a/html-test/src/AdvanceTypes.hs b/html-test/src/PromotedTypes.hs
similarity index 94%
rename from html-test/src/AdvanceTypes.hs
rename to html-test/src/PromotedTypes.hs
index c89d739..ae3ad37 100644
--- a/html-test/src/AdvanceTypes.hs
+++ b/html-test/src/PromotedTypes.hs
@@ -2,7 +2,9 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE KindSignatures #-}
 {-# LANGUAGE TypeOperators #-}
-module AdvanceTypes where
+
+
+module PromotedTypes where
 
 
 data RevList a = RNil | RevList a :> a

