From c9977d50bf23bfc06c741cd599505c8a76059020 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 27 Oct 2005 12:21:53 +0000
Subject: so

---
 src/GF/Shell.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 6aca6ff09..d20601844 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/10/06 14:21:34 $ 
+-- > CVS $Date: 2005/10/27 13:21:53 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.45 $
+-- > CVS $Revision: 1.46 $
 --
 -- GF shell command interpreter.
 -----------------------------------------------------------------------------
@@ -286,9 +286,9 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
            maybe (resourceOfShellState st) (return . I.identC) $ -- topmost res
              getOptVal opts useResource             -- flag -res=m
     justOutput opts (putStrLn (err id (unlines . map prOperSignature) (
-                string2srcTerm src m t >>= 
-                Co.computeConcrete src >>= 
-                return . L.opersForType src))) sa
+                string2srcTerm src m t >>= (\t' -> 
+                Co.computeConcrete src t' >>=  (\v -> 
+                return (L.opersForType src t' v)))))) sa
 
 
   CTranslationQuiz il ol -> do
-- 
cgit v1.2.3