From 5956ba6b38f56c4aa41f7216f7dabade368bb2f2 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 3 Nov 2007 22:00:08 +0000
Subject: command language and gfcc term parser in bnfc

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

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

diff --git a/src/GF/Devel/Shell.hs b/src/GF/Devel/Shell.hs
index 81569b8d1..f0aaf193b 100644
--- a/src/GF/Devel/Shell.hs
+++ b/src/GF/Devel/Shell.hs
@@ -46,7 +46,7 @@ treat mgr s = case words s of
     let ts = parse mgr lang cat $ unwords ws
     mapM_ (putStrLn . showTree) ts 
   "h":_ -> printHelp mgr
-  _ -> lins $ readTree mgr s
+  "l" : ws -> lins $ readTree mgr $ unwords ws
  where
   grammar = gfcc mgr
   langs = languages mgr
-- 
cgit v1.2.3