diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 150b756c1..1c7f4527e 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -290,10 +290,13 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com _ -> Nothing returnArg (ATrms $ generateTrees opts gro mt) sa + CTreeBank | oElem doCompute opts -> do -- -c + let bank = prCommandArg a + returnArg (AString $ unlines $ testTreebank opts st bank) sa CTreeBank -> do let ts = strees $ s2t $ snd sa comm = "command" ---- - justOutput opts (mkTreebank opts st comm ts) sa + returnArg (AString $ unlines $ mkTreebank opts st comm ts) sa CShowTreeGraph | oElem emitCode opts -> do -- -o returnArg (AString $ visualizeTrees opts $ strees $ s2t a) sa |