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

Need to include global env in Interface

Browse Source
This commit is contained in:
Timothy Clem 2018-03-01 11:38:14 -08:00
parent ca57af6132
commit c4a98d65de
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

@ -145,7 +145,7 @@ instance ( Ord (LocationFor (Value l t))
=> Evaluatable es t (Value l t) Program where
eval (Program xs) = eval' xs
where
interface val = inj . Value.Interface val <$> ask @(EnvironmentFor (Value l t))
interface val = inj . Value.Interface val <$> get @(EnvironmentFor (Value l t))
eval' [] = interface unit
eval' [x] = subtermValue x >>= interface