diff options
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 66297ddc8..06be45209 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -305,8 +305,12 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com returnArg (ATrms ts) sa CGenerateTrees | oElem showAll opts -> do - let cat = firstAbsCat opts gro - justOutput opts (generateAll opts (putStrLn . prt_) cgr cat) sa + let + cat = firstAbsCat opts gro + outp + | oElem (iOpt "lin") opts = optLinearizeTreeVal opts gro . term2tree gro + | otherwise = prt_ + justOutput opts (generateAll opts (putStrLn . outp) cgr cat) sa CGenerateTrees -> do let a' = case a of |