From 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 30 Mar 2010 18:48:59 +0000
Subject: simplified the treatment of politeness in Phrasebook

---
 src/server/PGFService.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server')

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 013af0e28..b03741f31 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -157,7 +157,7 @@ doTranslateGroup pgf input mcat mfrom mto =
    disamb lg from t = 
      if lg < 2 
        then [] 
-       else [("tree", "-- " ++ doText (doBind PGF.linearize pgf (disambLang from)) t)]
+       else [("tree", "-- " ++ doText (doBind (PGF.linearize pgf (disambLang from) t)))]
 
    disambLang f = maybe f id $ PGF.readLanguage $ "Disamb" ++ PGF.showLanguage f
    notDisamb = (/="Disamb") . take 6 . PGF.showLanguage
-- 
cgit v1.2.3