From c417d255d55ce813733846c6da706e19de657045 Mon Sep 17 00:00:00 2001 From: Prasanth Kolachina Date: Wed, 12 Sep 2018 17:01:06 +0200 Subject: [PATCH] change config filename in AbsFunDoc.hs to generate UDlabels in documentation --- doc/AbsFunDoc.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/AbsFunDoc.hs b/doc/AbsFunDoc.hs index 1ee65173..05f68a60 100644 --- a/doc/AbsFunDoc.hs +++ b/doc/AbsFunDoc.hs @@ -13,7 +13,7 @@ import Data.List main = do system "grep \" : \" ../src/abstract/*.gf | grep \" -- \" >absfuns.tmp" funs <- readFile "absfuns.tmp" >>= return . lines - deps <- readFile "../src/dep.labels" >>= return . lines + deps <- readFile "../src/Lang.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