[Implement searching
Neil Mitchell**20080804234824] {
hunk ./src/Web/Action.hs 14
+import Data.Range
+import Data.Binary.Defer.Index
hunk ./src/Web/Action.hs 71
-    ["<h1>Searched for " ++ qstr ++ "</h1>"
-    ,"<p>todo</p>"
-    ]
+    ["<h1>Searched for " ++ qstr ++ "</h1>"] ++
+    ["<p>" ++ showTagHTML sug ++ "</p>" | Just sug <- [suggestQuery dbs q]] ++
+    if null res then
+        ["<p>No results found</p>"]
+    else
+        ["<table>"] ++ map (f . renderResult) res ++ ["</table>"]
hunk ./src/Web/Action.hs 78
+        res = searchRange (rangeStartCount 0 25) dbs q
+        f (m,r,v) = "<tr><td class='mod'>" ++ maybe "" showModule m ++
+                    "</td><td>" ++ showTagHTML r ++ "</td></tr>"
+
hunk ./src/Web/Action.hs 87
-
-
hunk ./src/res/hoogle.css 77
-p {
+p, table {
hunk ./src/res/hoogle.css 91
+.mod {
+	vertical-align: bottom;
+	text-align: right;
+	font-size: 8pt;
+}
+
+
}