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/Compile/ConcreteToHaskell.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/Compile/ConcreteToHaskell.hs')
| -rw-r--r-- | src/compiler/GF/Compile/ConcreteToHaskell.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/ConcreteToHaskell.hs b/src/compiler/GF/Compile/ConcreteToHaskell.hs index f25246bd3..a2106a2f4 100644 --- a/src/compiler/GF/Compile/ConcreteToHaskell.hs +++ b/src/compiler/GF/Compile/ConcreteToHaskell.hs @@ -20,7 +20,7 @@ import Debug.Trace concretes2haskell opts absname gr = [(cncname,concrete2haskell opts gr cenv absname cnc cncmod) - | let cenv = resourceValues gr, + | let cenv = resourceValues opts gr, cnc<-allConcretes gr absname, let cncname = render cnc ++ ".hs" Ok cncmod = lookupModule gr cnc |