msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

change config filename in AbsFunDoc.hs to generate UDlabels in documentation

Browse Source
This commit is contained in:
Prasanth Kolachina
2018-09-12 17:01:06 +02:00
parent 285bca2ef5
commit c417d255d5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doc/AbsFunDoc.hs
View File

@@ -13,7 +13,7 @@ import Data.List
main = do main = do
system "grep \" : \" ../src/abstract/*.gf | grep \" -- \" >absfuns.tmp" system "grep \" : \" ../src/abstract/*.gf | grep \" -- \" >absfuns.tmp"
funs <- readFile "absfuns.tmp" >>= return . lines 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 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 rows = sort $ filter (flip S.notMember hiddenModules . last) $ map (mkRow depmap) (map words funs)
let entries = map (sepFields . addLink) rows let entries = map (sepFields . addLink) rows