diff options
| author | aarne <unknown> | 2004-08-03 11:47:32 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-08-03 11:47:32 +0000 |
| commit | 59b5745c0eaf418954bfea5ac594845420262295 (patch) | |
| tree | 4d96f1a9822b538da2a17ee69d4908f1a220a095 /src/GF/Shell/SubShell.hs | |
| parent | 541ef75fb4171707973b15cf612cc5edf20fedcf (diff) | |
Preparing for release.
Diffstat (limited to 'src/GF/Shell/SubShell.hs')
| -rw-r--r-- | src/GF/Shell/SubShell.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/Shell/SubShell.hs b/src/GF/Shell/SubShell.hs index 0134b3530..bdfbe8884 100644 --- a/src/GF/Shell/SubShell.hs +++ b/src/GF/Shell/SubShell.hs @@ -9,6 +9,8 @@ import API import CommandL import ArchEdit +import List + -- AR 20/4/2000 -- 12/11/2001 editSession :: Options -> ShellState -> IO () @@ -26,10 +28,10 @@ translateSession :: Options -> ShellState -> IO () translateSession opts st = do let grs = allStateGrammars st cat = firstCatOpts opts (firstStateGrammar st) - trans s = unlines $ + trans s = unlines $ if oElem showLang opts then - [l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs) - (translateBetweenAll grs cat s)] + sort $ [l +++ ":" +++ s | (l,s) <- zip (map (prIdent . cncId) grs) + (translateBetweenAll grs cat s)] else translateBetweenAll grs cat s translateLoop opts trans |