github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +03:00
Code Issues Projects Releases Wiki Activity

Actually do need to envUnion here

Browse Source
This commit is contained in:
Timothy Clem 2018-03-07 11:34:35 -08:00
parent 524116baf5
commit 2aaa2096ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Syntax.hs
View File

@ -144,7 +144,7 @@ instance Evaluatable Program where
eval' (x:xs) = do eval' (x:xs) = do
_ <- subtermValue x _ <- subtermValue x
env <- getGlobalEnv env <- getGlobalEnv
localEnv (const env) (eval' xs) localEnv (envUnion env) (eval' xs)
-- | An accessibility modifier, e.g. private, public, protected, etc. -- | An accessibility modifier, e.g. private, public, protected, etc.
newtype AccessibilityModifier a = AccessibilityModifier ByteString newtype AccessibilityModifier a = AccessibilityModifier ByteString