diff options
Diffstat (limited to 'html-test')
| -rw-r--r-- | html-test/README.markdown | 2 | ||||
| -rw-r--r-- | html-test/ref/frames.html | 2 | ||||
| -rw-r--r-- | html-test/ref/haddock-util.js | 22 | ||||
| -rw-r--r-- | html-test/src/Bugs.hs | 2 | 
4 files changed, 14 insertions, 14 deletions
diff --git a/html-test/README.markdown b/html-test/README.markdown index 8d57acab..717bac5c 100644 --- a/html-test/README.markdown +++ b/html-test/README.markdown @@ -1,7 +1,7 @@  This is a testsuite for Haddock that uses the concept of "golden files". That  is, it compares output files against a set of reference files. -To add a new test:  +To add a new test:   1. Create a module in the `html-test/src` directory. diff --git a/html-test/ref/frames.html b/html-test/ref/frames.html index 1b4e38d4..e86edb66 100644 --- a/html-test/ref/frames.html +++ b/html-test/ref/frames.html @@ -1,4 +1,4 @@ -<!DOCTYPE html  +<!DOCTYPE html       PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"       "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">  <html xmlns="http://www.w3.org/1999/xhtml"> diff --git a/html-test/ref/haddock-util.js b/html-test/ref/haddock-util.js index 9a6fccf7..ba574356 100644 --- a/html-test/ref/haddock-util.js +++ b/html-test/ref/haddock-util.js @@ -131,11 +131,11 @@ function perform_search(full)      var text = document.getElementById("searchbox").value.toLowerCase();      if (text == last_search && !full) return;      last_search = text; -     +      var table = document.getElementById("indexlist");      var status = document.getElementById("searchmsg");      var children = table.firstChild.childNodes; -     +      // first figure out the first node with the prefix      var first = bisect(-1);      var last = (first == -1 ? -1 : bisect(1)); @@ -166,7 +166,7 @@ function perform_search(full)          status.innerHTML = "";      } -     +      function setclass(first, last, status)      {          for (var i = first; i <= last; i++) @@ -174,8 +174,8 @@ function perform_search(full)              children[i].className = status;          }      } -     -     + +      // do a binary search, treating 0 as ...      // return either -1 (no 0's found) or location of most far match      function bisect(dir) @@ -201,9 +201,9 @@ function perform_search(full)              if (checkitem(i) == 0) return i;          }          return -1; -    }     -     -     +    } + +      // from an index, decide what the result is      // 0 = match, -1 is lower, 1 is higher      function checkitem(i) @@ -212,8 +212,8 @@ function perform_search(full)          if (s == text) return 0;          else return (s > text ? -1 : 1);      } -     -     + +      // from an index, get its string      // this abstracts over alternates      function getitem(i) @@ -250,7 +250,7 @@ function addMenuItem(html) {  function adjustForFrames() {    var bodyCls; -   +    if (parent.location.href == window.location.href) {      // not in frames, so add Frames button      addMenuItem("<a href='#' onclick='reframe();return true;'>Frames</a>"); diff --git a/html-test/src/Bugs.hs b/html-test/src/Bugs.hs index 8e1f0079..e60bbe8f 100644 --- a/html-test/src/Bugs.hs +++ b/html-test/src/Bugs.hs @@ -1,3 +1,3 @@  module Bugs where -data A a = A a (a -> Int)  +data A a = A a (a -> Int)  | 
