From b12608fb0947122fe65d9736eabf59266ad08252 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 17 May 2005 11:37:17 +0000
Subject: ml and tl

---
 src/GF/Shell/PShell.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index 480284ccf..78b1f38a6 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/05/12 10:03:33 $ 
+-- > CVS $Date: 2005/05/17 12:37:17 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.21 $
+-- > CVS $Revision: 1.22 $
 --
 -- parsing GF shell commands. AR 11\/11\/2001
 -----------------------------------------------------------------------------
@@ -104,9 +104,9 @@ pCommand ws = case ws of
   "so" : s      -> aUnit   $ CShowOpers $ unwords s
 
   "tq" : i:o:[] -> aUnit   (CTranslationQuiz (language i) (language o))
-  "tl":i:o:n:[] -> aUnit   (CTranslationList (language i) (language o) (readIntArg n))
+  "tl":i:o:[]   -> aUnit   (CTranslationList (language i) (language o))
   "mq" : []     -> aUnit   CMorphoQuiz
-  "ml" : n : [] -> aUnit   (CMorphoList (readIntArg n))
+  "ml" : []     -> aUnit   CMorphoList
 
   "wf" : f : s  -> aString (CWriteFile f) s
   "af" : f : s  -> aString (CAppendFile f) s
-- 
cgit v1.2.3