From 84e01c303dc161c3a811a045cc0c45f3f13e33d6 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 4 Mar 2006 15:24:03 +0000 Subject: proper place of -treebank option --- src/GF/API/IOGrammar.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/GF/API/IOGrammar.hs') diff --git a/src/GF/API/IOGrammar.hs b/src/GF/API/IOGrammar.hs index cb84d9bf7..335757cf4 100644 --- a/src/GF/API/IOGrammar.hs +++ b/src/GF/API/IOGrammar.hs @@ -23,6 +23,7 @@ import GF.Compile.Compile import GF.Compile.ShellState import GF.Compile.NoParse import GF.Probabilistic.Probabilistic +import GF.UseGrammar.Treebank import GF.Infra.Modules import GF.Infra.ReadFiles (isOldFile) @@ -68,6 +69,9 @@ shellStateFromFiles opts st file = do let osb = addOptions (options []) opts grts <- compileModule osb st file ioeErr $ updateShellState opts ign Nothing st grts + s | oElem (iOpt "treebank") opts -> do + tbs <- ioeIO $ readUniTreebanks file + return $ addTreebanks tbs st _ -> do b <- ioeIO $ isOldFile file let opts' = if b then (addOption showOld opts) else opts -- cgit v1.2.3