[Use iff, add the <hsx> tag
Neil Mitchell**20060819125137] {
hunk ./src/Web/HTML.hsx 7
+import Hoogle.General
hunk ./src/Web/HTML.hsx 62
-        <% if null webPackage then "" else
-            "<img src=\"res/" ++ webPackage ++ "_small.png\" alt=\"" ++ webPackage ++ "\" />"
+        <% iff (not $ null webPackage) $
+            <img src=("res/" ++ webPackage ++ "_small.png") alt=webPackage />
hunk ./src/Web/HTML.hsx 72
-            <% if null webPackage then "" else
-                "<input type=\"hidden\" name=\"package\" value=\"" ++ webPackage ++ "\" />"
+            <% iff (not $ null webPackage) $
+                <input type="hidden" name="package" value=webPackage />
hunk ./src/Web/HTML.hsx 87
-	<table id="heading">
-		<tr>
-			<td>Invalid Search</td>
-			<td id="count">No results found</td>
-		</tr>
-	</table>
-    <+>
-	<div id="failure">
-		Error, your search was invalid:<br/>
-		<% errmsg %>
-		<ul>
-			<li>This is probably a parse error, check for matching brackets etc.</li>
-		</ul>
-	</div>
+    <hsx>
+        <table id="heading">
+            <tr>
+                <td>Invalid Search</td>
+                <td id="count">No results found</td>
+            </tr>
+        </table>
hunk ./src/Web/HTML.hsx 95
+        <div id="failure">
+            Error, your search was invalid:<br/>
+            <% errmsg %>
+            <ul>
+                <li>This is probably a parse error, check for matching brackets etc.</li>
+            </ul>
+        </div>
+    </hsx>
hunk ./src/Web/HTML.hsx 129
-        <% if null webPackage then "" else
+        <% iff (not $ null webPackage) $
hunk ./src/Web/HTML.hsx 137
-        <% if null webPackage then "" else
-            " - <a href=\"http://haskell.org/gtk2hs/\">Gtk2Hs</a> edition"
+        <% iff (not $ null webPackage) $
+            <hsx> - <a href="http://haskell.org/gtk2hs/">Gtk2Hs</a> edition</hsx>
hunk ./src/Web/XML.hs 45
+instance ToXMLs a => ToXMLs (Maybe a) where
+    toXMLs Nothing = XmlList []
+    toXMLs (Just x) = toXMLs x
+
hunk ./src/Web/XML.hs 53
+    show (Tag "hsx" [] inner) = show inner
}