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/SubShell.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/GF/Shell/SubShell.hs')

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