[Flesh out the results more, include package name and todo for doc string
Neil Mitchell**20080805115541] {
hunk ./src/Web/Action.hs 76
-        ["<table>"] ++ map (f . renderResult) res ++ ["</table>"]
+        ["<table>"] ++ concatMap renderRes res ++ ["</table>"]
hunk ./src/Web/Action.hs 79
-        f (m,r,v) = "<tr><td class='mod'>" ++ maybe "" showModule m ++
-                    "</td><td>" ++ showTagHTML r ++ "</td></tr>"
hunk ./src/Web/Action.hs 85
+
+
+renderRes :: Result -> [String]
+renderRes r =
+        [tr $ td "mod" (maybe "" showModule modu) ++ td "" (showTagHTML text)
+        ,tr $ td "pkg" pkg ++ td "doc" "todo"]
+    where
+        (modu,text,_) = renderResult r
+        pkg = maybe "" (packageName . fromLink . modulePackage . fromLink) $ entryModule $ fromLink $ resultEntry r
+
+        tr x = "<tr>" ++ x ++ "</tr>"
+        td c x = "<td" ++ (if null c then "" else " class='" ++ c ++ "'") ++ ">" ++ x ++ "</td>"
+
hunk ./src/res/hoogle.css 92
+td {
+	padding-bottom: 0px;
+	padding-top: 0px;
+}
+
hunk ./src/res/hoogle.css 98
-	color: #080;
hunk ./src/res/hoogle.css 101
+	color: #080;
+}
+
+.pkg {
+	vertical-align: top;
+	text-align: right;
+	font-size: 8pt;
+	color: #888;
hunk ./src/res/hoogle.css 111
+.doc {
+	font-size: 8pt;
+	padding-bottom: 10px;
+}
+
+
+
+
+
}