diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-30 22:02:25 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-30 22:02:25 +0000 |
| commit | c51846361f18d372542f69e4bb281ef834750312 (patch) | |
| tree | b71221a1bf98e82422e26ab18db7440769612d9f /src/GF/Shell.hs | |
| parent | 719e75105158932558aaa071d2ede50e41a9454b (diff) | |
l -multi -all/-table ; same with tb
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 4b9660ced..3dcec9fbd 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -231,8 +231,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com CLinearize [] | oElem showMulti opts -> - changeArg (opTS2CommandArg (unlines. linearizeToAll - (allStateGrammars st)) . s2t) sa + + changeArg (opTS2CommandArg ( + unlines . + (\t -> [optLinearizeTreeVal opts gr t | gr <- allStateGrammars st])) . s2t) sa + | otherwise -> changeArg (opTS2CommandArg (optLinearizeTreeVal opts gro) . s2t) sa ---- CLinearize m -> changeArg (opTS2CommandArg (optLinearizeArgForm opts gro m)) sa |