From f848857519bfb093310503108ff62297ea9f8a24 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 20 Feb 2015 13:26:12 +0000
Subject: added option -plus-as-bind which treats (+) as a bind when used with
 runtime variables

---
 src/compiler/GF/Interactive.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/compiler/GF/Interactive.hs')

diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs
index 16495d9dd..82806bebb 100644
--- a/src/compiler/GF/Interactive.hs
+++ b/src/compiler/GF/Interactive.hs
@@ -333,9 +333,7 @@ checkComputeTerm sgr t = do
                  mo <- maybe (raise "no source grammar in scope") return $ greatestResource sgr
                  ((t,_),_) <- runCheck $ do t <- renameSourceTerm sgr mo t
                                             inferLType sgr [] t
-                 t1 <- {-if new
-                       then-} return (CN.normalForm (CN.resourceValues sgr) (L NoLoc identW) t)
-                       {-else computeConcrete sgr t-}
+                 t1 <- return (CN.normalForm (CN.resourceValues noOptions sgr) (L NoLoc identW) t)
                  checkPredefError t1
 
 fetchCommand :: GFEnv -> IO String
-- 
cgit v1.2.3