diff options
| author | krasimir <krasimir@chalmers.se> | 2015-02-20 13:26:12 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-02-20 13:26:12 +0000 |
| commit | f848857519bfb093310503108ff62297ea9f8a24 (patch) | |
| tree | 7680fe7178f9d09a52d51adb0e576ba7d727a033 /src/compiler/GF/Interactive.hs | |
| parent | 8fae1049572841aca6541e633dc6ba8fa0fdcc18 (diff) | |
added option -plus-as-bind which treats (+) as a bind when used with runtime variables
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |