From 35aac815db52ecdb6fd12e61139d3a74545cac6d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 2 Mar 2006 09:55:50 +0000
Subject: tb -trees ; rl ; path in gfe ; removed spurious "file not found"

---
 src/GF/Shell.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 9eab757b7..0d5332fb8 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -193,8 +193,8 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
   CChangeMain ma -> changeStateErr (changeMain ma) sa
   CStripState    -> changeState purgeShellState sa
 
+  CRemoveLanguage lan -> changeState (removeLang lan) sa
 {-
-  CRemoveLanguage lan -> changeState (removeLanguage lan) sa
   CTransformGrammar file -> do
     s <- transformGrammarFile opts file
     returnArg (AString s) sa
@@ -293,6 +293,11 @@ execC co@(comm, opts0) sa@(sh@(st,(h,_,_,_)),a) = checkOptions st co >> case com
   CTreeBank | oElem doCompute opts -> do -- -c
     let bank = prCommandArg a
     returnArg (AString $ unlines $ testTreebank opts st bank) sa
+  CTreeBank | oElem getTrees opts -> do -- -trees
+    let bank  = prCommandArg a
+        tes   = map (string2treeErr gro) $ treesTreebank opts bank
+        terms = [t | Ok t <- tes] 
+    returnArg (ATrms terms) sa
   CTreeBank -> do
     let ts = strees $ s2t $ snd sa
         comm = "command" ----
-- 
cgit v1.2.3