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

temporaryly fix GF.Command.Commands2

Browse Source
This commit is contained in:
Krasimir Angelov
2017-10-05 21:09:38 +02:00
parent e3aa392e63
commit 0bb6b5968e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Command/Commands2.hs
View File

@@ -612,7 +612,7 @@ pgfCommands = Map.fromList [
Nothing -> let funs = functionsByCat pgf id Nothing -> let funs = functionsByCat pgf id
in showCat id funs)) in showCat id funs))
where where
showCat c funs = "cat "++showCategory pgf c++ showCat c funs = "cat "++c++
" ;\n\n"++ " ;\n\n"++
unlines [showFun f ty| f<-funs, unlines [showFun f ty| f<-funs,
Just ty <- [functionType pgf f]] Just ty <- [functionType pgf f]]