GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 03:09:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

cf for restricted import; new API funs

Browse Source
This commit is contained in:
aarne
2005-05-31 11:47:51 +00:00
parent 0c310d3cae
commit 04ae4c37cb
8 changed files with 106 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Embed/EmbedParsing.hs
View File

@@ -83,7 +83,7 @@ trees2trms opts sg cn as ts0 info = do
,checkWarn (unlines ("Raw CF trees:":(map prCFTree ts0))) >> return []
]
_ -> do
let num = optIntOrN opts flagRawtrees 99999
let num = optIntOrN opts flagRawtrees 999999
let (ts01,rest) = splitAt num ts0
if null rest then return ()
else checkWarn ("Warning: only" +++ show num +++ "raw parses out of" +++