Stop testing #188.

Because the change is in GHC 7.9 and we now work against 7.8.3, this test no longer makes sense. We revert it until 7.10 becomes the standard version. If anything, there should be a test for this in GHC itself.

Stop testing #188.
Because the change is in GHC 7.9 and we now work against 7.8.3, this test no longer makes sense. We revert it until 7.10 becomes the standard version. If anything, there should be a test for this in GHC itself.
136611ca · Mateusz Kowalczyk · 4720f777 · 4720f777 · 136611ca · 4720f777
Commit 136611ca authored 10 years ago by Mateusz Kowalczyk
--- a/html-test/ref/Bug188.html
+++ b/html-test/ref/Bug188.html
-<!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
-    >Bug188</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_Bug188.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"
-      >&nbsp;</p
-      ></div
-    ><div id="content"
-    ><div id="module-header"
-      ><table class="info"
-	><tr
-	  ><th
-	    >Safe Haskell</th
-	    ><td
-	    >Safe-Inferred</td
-	    ></tr
-	  ></table
-	><p class="caption"
-	>Bug188</p
-	></div
-      ><div id="interface"
-      ><h1
-	>Documentation</h1
-	><div class="top"
-	><p class="src"
-	  ><span class="keyword"
-	    >class</span
-	    > <a name="t:A" class="def"
-	    >A</a
-	    > a <span class="keyword"
-	    >where</span
-	    ></p
-	  ><div class="subs methods"
-	  ><p class="caption"
-	    >Methods</p
-	    ><p class="src"
-	    ><a name="v:f" class="def"
-	      >f</a
-	      >, <a name="v:g" class="def"
-	      >g</a
-	      >, <a name="v:h" class="def"
-	      >h</a
-	      >, <a name="v:i" class="def"
-	      >i</a
-	      > :: a -&gt; ()</p
-	    ></div
-	  ></div
-	></div
-      ></div
-    ><div id="footer"
-    ><p
-      >Produced by <a href=""
-	>Haddock</a
-	> version 2.15.0</p
-      ></div
-    ></body
-  ></html
->
--- a/html-test/ref/Operators.html
+++ b/html-test/ref/Operators.html
@@ -151,11 +151,11 @@ window.onload = function () {pageLoad();setSynopsis("mini_Operators.html");};
 	      ><a href=""
 		>(**&gt;)</a
 		>, <a href=""
-		>(**&lt;)</a
+		>(&lt;**)</a
 		>, <a href=""
 		>(&gt;**)</a
 		>, <a href=""
-		>(&lt;**)</a
+		>(**&lt;)</a
 		> :: a -&gt; a -&gt; ()</li
 	      ></ul
 	    ></li
@@ -407,16 +407,16 @@ window.onload = function () {pageLoad();setSynopsis("mini_Operators.html");};
 	    ><p class="src"
 	    ><a name="v:-42--42--62-" class="def"
 	      >(**&gt;)</a
-	      >, <a name="v:-42--42--60-" class="def"
-	      >(**&lt;)</a
-	      >, <a name="v:-62--42--42-" class="def"
-	      >(&gt;**)</a
 	      >, <a name="v:-60--42--42-" class="def"
 	      >(&lt;**)</a
+	      >, <a name="v:-62--42--42-" class="def"
+	      >(&gt;**)</a
+	      >, <a name="v:-42--42--60-" class="def"
+	      >(**&lt;)</a
 	      > :: a -&gt; a -&gt; () <span class="fixity"
 	      >infixr 8 **&gt;, &gt;**</span
 	      ><span class="fixity"
-	      >infixl 8 **&lt;, &lt;**</span
+	      >infixl 8 &lt;**, **&lt;</span
 	      ><span class="rightedge"
 	      ></span
 	      ></p
@@ -450,7 +450,7 @@ window.onload = function () {pageLoad();setSynopsis("mini_Operators.html");};
    ><p
      >Produced by <a href=""
 	>Haddock</a
-	> version 2.15.0</p
+	> version 2.14.4</p
      ></div
    ></body
  ></html

--- a/html-test/src/Bug188.hs
+++ b/html-test/src/Bug188.hs
-- Tests that the listed order of functions grouped under a single
-- type signature is preserved as in-source. Before fixing #188, it
-- seems to have preserved the first function but reversed the rest.
-module Bug188 where
-class A a where
-  f, g, h, i :: a -> ()