[Add fixes to preserve Gtk as the package, and show the appropriate logo
Neil Mitchell**20060818215220] {
hunk ./src/Web/HTML.hsx 59
-searchPage webData inner = anyPage webData $
+searchPage webData@WebData{webPackage=webPackage} inner = anyPage webData $
hunk ./src/Web/HTML.hsx 61
+        <% if null webPackage then "" else
+            "<img src=\"res/" ++ webPackage ++ "_small.png\" alt=\"" ++ webPackage ++ "\" />"
+        %>
hunk ./src/Web/HTML.hsx 71
+            <% if null webPackage then "" else
+                "<input type=\"hidden\" name=\"package\" value=\"" ++ webPackage ++ "\" />"
+            %>
hunk ./src/Web/HTML.hsx 125
-htmlFront webData = anyPage webData $
+htmlFront webData@WebData{webPackage=webPackage} = anyPage webData $
hunk ./src/Web/HTML.hsx 127
+        <% if null webPackage then "" else
+            "<img style=\"vertical-align:top;\" src=\"res/" ++ webPackage ++ "_large.png\" alt=\"" ++ webPackage ++ "\" />"
+        %>
hunk ./src/Web/HTML.hsx 134
-        <i>The Haskell API Search Engine</i><br/>
+        <i>The Haskell API Search Engine</i>
+        <% if null webPackage then "" else
+            " - <a href=\"http://haskell.org/gtk2hs/\">Gtk2Hs</a> edition"
+        %>
+        <br/>
hunk ./src/Web/HTML.hsx 142
+                <% if null webPackage then "" else
+                    "<input type=\"hidden\" name=\"package\" value=\"" ++ webPackage ++ "\" />"
+                %>
}