From c7a953bb935f578bcbb389e9d4fbe91822ef3f14 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 8 Jan 2004 14:58:46 +0000
Subject: Some bug fixes mostly in editor commands.

---
 src/GF/Shell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index b0647b954..dba4e1823 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -171,7 +171,7 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
   CGenerateRandom n -> do
     ts <- randomTreesIO opts gro (optIntOrN opts flagNumber n)
     returnArg (ATrms ts) sa
------  CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa
+  CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa
 -----  CWrapTerm f -> changeArg (opTT2CommandArg (return . wrapByFun opts gro f)) sa
   CMorphoAnalyse -> changeArg (AString . morphoAnalyse opts gro . prCommandArg) sa
   CTestTokenizer -> changeArg (AString . optTokenizer opts gro . prCommandArg) sa
-- 
cgit v1.2.3