Update AbsFunDoc to remove refs to translator and app

doc/AbsFunDoc.hs

@@ -11,9 +11,9 @@ import Data.List
 -- this creates the file absfuns.html
 
 main = do
-  system "grep \" : \" ../src/abstract/*.gf ../src/translator/Extensions.gf ../../examples/app/App.gf | grep \" -- \" >absfuns.tmp"
+  system "grep \" : \" ../src/abstract/*.gf | grep \" -- \" >absfuns.tmp"
   funs <- readFile "absfuns.tmp" >>= return . lines
-  deps <- readFile "../src/uddeps.labels" >>= return . lines
+  deps <- readFile "../src/dep.labels" >>= return . lines
   let depmap = M.fromListWith (\x y -> x ++ [";"] ++ y) [(fun,deps) | fun:deps <- map words deps]
   let rows = sort $ filter (flip S.notMember hiddenModules . last) $ map (mkRow depmap) (map words funs)
   let entries = map (sepFields . addLink) rows
@@ -47,10 +47,7 @@ putStrLnIf = putStrLn
 addLink fs =
   let
     m = last fs
-    abstract = case m of
+    abstract = "abstract/"
-      "App" -> "../../examples/app/"
-      "Extensions" -> "translator/"
-      _ -> "abstract/"
   in init fs ++ ["[" ++ m ++ " ../src/" ++ abstract ++ m ++ ".gf]"]
 
 -- for tab separated generation
@@ -59,4 +56,3 @@ addLink fs =
 -- italics e = e
 -- putStrLnIf = return ()
 -- addLink fs = fs
-