[New hoodoc parameters, add mode parameter
Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>**20051114160658] {
hunk ./src/Web/Main.hs 156
-        f (Result modu name typ _ _ _ _) =
-            "<item>" ++ hoodoc modu (Just name) ++
+        f res@(Result modu name typ _ _ _ _) =
+            "<item>" ++ hoodoc res True ++
hunk ./src/Web/Main.hs 183
-showResult (Result modu name typ _ _ _ _) = 
+showResult res@(Result modu name typ _ _ _ _) = 
hunk ./src/Web/Main.hs 186
-            hoodoc modu Nothing ++ showTagsLimit 20 modu ++ "</a>." ++
+            hoodoc res False ++ showTagsLimit 20 modu ++ "</a>." ++
hunk ./src/Web/Main.hs 194
-           openA = hoodoc modu (Just name)
+           openA = hoodoc res True
hunk ./src/Web/Main.hs 197
-hoodoc :: TagStr -> Maybe TagStr -> String
-hoodoc modu func = case func of
-                        Nothing -> f $ showText modu
-                        Just x -> f $ showText modu ++ "&amp;func=" ++ escape (showText x)
-    where f x = "<a href='hoodoc.cgi?module=" ++ x ++ "'>"
+hoodoc :: Result -> Bool -> String
+hoodoc res full = f $
+        if not full
+            then showText (resultModule res) ++ "&amp;mode=module"
+        else if resultMode res == "module"
+            then showText (resultModule res) ++ "." ++ showText (resultName res) ++ "&amp;mode=module"
+        else showText (resultModule res) ++
+             "&amp;name=" ++ escape (showText (resultName res)) ++
+             "&amp;mode=" ++ resultMode res
+    where
+        f x = "<a href='hoodoc.cgi?module=" ++ x ++ "'>"
}