github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Define a getter for the global environment.

Browse Source
This commit is contained in:
Rob Rix 2018-02-28 10:41:51 -05:00
parent 772fd97b38
commit 37912b315a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Analysis/Abstract/Evaluator.hs
View File

@ -11,6 +11,10 @@ import Control.Monad.Effect.State
import Data.Abstract.Value import Data.Abstract.Value
import Prelude hiding (fail) import Prelude hiding (fail)
getGlobalEnv :: Evaluator effects value (EnvironmentFor value)
getGlobalEnv = Evaluator get
data Evaluator effects value a data Evaluator effects value a
= Evaluator = Evaluator
{ runEvaluator :: Members '[ Fail { runEvaluator :: Members '[ Fail