[Change to using Hoogle.Item.URL in Web.Action
Neil Mitchell**20080819194452] {
hunk ./src/Web/Action.hs 128
-        [tr $ modname ++ td "" (href urlItem $ showTagHTMLWith url text)
+        [tr $ modname ++ td "" (href urlEnt $ showTagHTMLWith url text)
hunk ./src/Web/Action.hs 135
-        modname = td "mod" $ maybe "" (href urlModule . showModule) modu
+        modname = td "mod" $ maybe "" (href urlMod . showModule) modu
hunk ./src/Web/Action.hs 141
-                    "<a class='more' href='" ++ urlItem ++ "' onclick='return doc_more(" ++ show i ++ ")'> </a>" ++
+                    "<a class='more' href='" ++ urlEnt ++ "' onclick='return doc_more(" ++ show i ++ ")'> </a>" ++
hunk ./src/Web/Action.hs 153
-        urlPkg = "http://hackage.haskell.org/packages/archive/" +? maybe "" packageName pkg +? "/" +?
-                 maybe "" packageVersion pkg +? "/doc/html/"
-        urlModule = urlPkg +? concat (intersperse "-" $ maybe [] (moduleName . fromLink) $ entryModule ent) +? ".html"
-        urlItem = if isNothing pkg then keywordURL $ entryName ent else
-                  if isNothing modu then urlModule else
-                  urlModule +? "#v:" +? escapeHTML (entryName ent)
+        urlPkg = entryPackageURL ent
+        urlMod = entryModuleURL ent
+        urlEnt = entryURL ent
hunk ./src/Web/Action.hs 158
-            | null urlItem = Just $ "<span class='a'>" ++ showTagHTML x ++ "</span>"
-            | otherwise = Just $ "</a><a href='" +& urlItem ++ "'>" ++ showTagHTML x ++
-                                 "</a><a class='dull' href='" +& urlItem ++ "'>"
+            | null urlEnt = Just $ "<span class='a'>" ++ showTagHTML x ++ "</span>"
+            | otherwise = Just $ "</a><a href='" +& urlEnt ++ "'>" ++ showTagHTML x ++
+                                 "</a><a class='dull' href='" +& urlEnt ++ "'>"
hunk ./src/Web/Action.hs 167
-
-
-keywordURL :: String -> String
-keywordURL name = "http://www.haskell.org/haskellwiki/Keywords#" ++ concatMap f name
-    where
-        f x | isAlpha x || x `elem` "_-:" = [x]
-            | otherwise = '.' : map toUpper (showHex (ord x) "")
-
-
}