[Fix the display of text
Neil Mitchell**20101111195018] {
hunk ./src/Hoogle/Item/Item.hs 50
-        cols = [(a,b) | ArgPosNum a b <- view]
+        cols = [(b+1,a+1) | ArgPosNum a b <- view]
hunk ./src/Hoogle/Item/Item.hs 53
-        f (TagColor i x) = maybe x (`TagColor` x) $ lookup i cols
-        f (TagBold (Str xs)) = Tags $ g xs
-        f (TagBold x) = x
+        f (TagColor i x) = maybe x (`TagColor` x) $ lookup i $ [(0,0)|cols/=[]] ++ cols
+        f (TagBold (Str xs)) = TagBold $ Tags $ g xs
hunk ./src/Hoogle/Item/Item.hs 57
-
-        g xs | ss /= [] = TagBold (Str a) : g b
+        g xs | ss /= [] = TagUnderline (Str a) : g b
hunk ./src/Web/Response.hs 133
-        url (TagHyperlink _ x)
-            | null selfUrl = Just $ "<span class='a'>" ++ showTagHTML x ++ "</span>"
-            | otherwise = Just $ "</a><a href='" +& selfUrl ++ "'>" ++ showTagHTML x ++
+        url (TagBold x)
+            | null selfUrl = Just $ "<span class='a'>no url" ++ showTagHTML (transform g x) ++ "</span>"
+            | otherwise = Just $ "</a><a class='a' href='" +& selfUrl ++ "'>" ++ showTagHTML (transform g x) ++
hunk ./src/Web/Response.hs 139
+        g (TagUnderline x) = TagBold x
+        g x = x
+
+
}