From 98b24d0e33e2cb90244773f8ad7d3c4f3f73ecd0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 8 Feb 2006 10:18:00 +0000
Subject: command tb for creating treebanks

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

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

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index aba743503..676e54c46 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -113,6 +113,7 @@ pCommand ws = case ws of
   "tt" : s      -> aString CTestTokenizer s
   "cc" : s      -> aUnit   $ CComputeConcrete $ unwords s
   "so" : s      -> aUnit   $ CShowOpers $ unwords s
+  "tb" : []     -> aUnit   CTreeBank
 
   "tq" : i:o:[] -> aUnit   (CTranslationQuiz (language i) (language o))
   "tl":i:o:[]   -> aUnit   (CTranslationList (language i) (language o))
-- 
cgit v1.2.3