From ff2a2895c08b667894b565c8d39f0bf63d85492a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 24 Sep 2004 16:04:04 +0000
Subject: gfcc

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

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

diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs
index 09f9b5f78..b1f43ddbe 100644
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -248,6 +248,8 @@ execECommand env c = case c of
   CSelectCand i      -> selectCand cgr i
 
   CTermCommand c     -> case c of
+                         "reindex" -> \s ->
+                           replaceByTermCommand der gr c (actTree (stateSState s)) s
                          "paraphrase" -> \s ->
                            replaceByTermCommand der gr c (actTree (stateSState s)) s
 ----                          "transfer" -> action2commandNext $
-- 
cgit v1.2.3