From 59b5745c0eaf418954bfea5ac594845420262295 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 3 Aug 2004 11:47:32 +0000
Subject: Preparing for release.

---
 src/GF/Shell/ShellCommands.hs | 2 +-
 src/GF/Shell/SubShell.hs      | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs
index 09de1cd24..09a550704 100644
--- a/src/GF/Shell/ShellCommands.hs
+++ b/src/GF/Shell/ShellCommands.hs
@@ -161,7 +161,7 @@ optionsOfCommand co = case co of
   CShowTerm -> flags "printer"
   CSystemCommand _ -> none
 
-  CPrintGrammar -> both "utf8" "printer"
+  CPrintGrammar -> both "utf8" "printer lang"
   CPrintMultiGrammar -> opts "utf8"
 
   CHelp _ -> opts "all"
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
 
-- 
cgit v1.2.3