From a979508aa75a3f2b93072d214ca9c75ed874a39c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 8 Oct 2003 10:09:58 +0000
Subject: Restored printnames.

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

(limited to 'src/GF/UseGrammar/Session.hs')

diff --git a/src/GF/UseGrammar/Session.hs b/src/GF/UseGrammar/Session.hs
index 051630149..81158a515 100644
--- a/src/GF/UseGrammar/Session.hs
+++ b/src/GF/UseGrammar/Session.hs
@@ -96,7 +96,7 @@ refineByExps der gr trees = case trees of
 
 refineByTrees :: Bool -> CGrammar -> [Tree] -> ECommand
 refineByTrees der gr trees = case trees of
-  [t] -> action2commandNext (refineWithTree der gr t)
+  [t] -> action2commandNext (refineOrReplaceWithTree der gr t)
   _  -> changeCands  $ map tree2exp trees
 
 replaceByTrees :: CGrammar -> [Exp] -> ECommand
-- 
cgit v1.2.3