proper place of -treebank option

This commit is contained in:
aarne
2006-03-04 15:24:03 +00:00
parent ee26cf955b
commit ddc8a409ec
3 changed files with 5 additions and 3 deletions

View File

@@ -181,9 +181,6 @@ execLine put (c@(co, os), arg, cs) (outps,st) = do
execC :: CommandOpt -> ShellIO
execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case comm of
CImport file | oElem (iOpt "treebank") opts -> do
tbs <- readUniTreebanks file
changeState (addTreebanks tbs) sa
CImport file | oElem fromExamples opts -> do
es <- liftM nub $ getGFEFiles opts file
system $ "gf -examples" +++ unlines es