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

change PGF.categories to return list of identifiers instead of types

Browse Source
This commit is contained in:
krasimir committed 2009-11-26 14:43:31 +00:00
1 parent 6b0a662c35
commit ba1b602053
3 files changed
+6 -7
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/GF/Command/Commands.hs
+1 -1
View File
@@ -835,7 +835,7 @@ allCommands cod env@(pgf, mos) = Map.fromList [
_ -> fromExprs es
prGrammar opts
| isOpt "cats" opts = return $ fromString $ unwords $ map (showType []) $ categories pgf
| isOpt "cats" opts = return $ fromString $ unwords $ map showCId $ categories pgf
| isOpt "fullform" opts = return $ fromString $ concatMap (morpho "" prFullFormLexicon) $ optLangs opts
| isOpt "missing" opts = return $ fromString $ unlines $ [unwords (showCId la:":": map showCId cs) |
la <- optLangs opts, let cs = missingLins pgf la]