github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

🔥 localize.

Browse Source
This commit is contained in:
Rob Rix 2018-05-29 17:34:26 -04:00
parent 71dba01c1d
commit 6f89e25628
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Control/Abstract/Environment.hs
View File

@ -6,7 +6,6 @@ module Control.Abstract.Environment
, modifyEnv
, withEnv
, localEnv
, localize
, lookupEnv
, Env(..)
, runEnv
@ -47,10 +46,6 @@ localEnv f a = do
result <- a
result <$ modifyEnv Env.pop
-- | Run a computation in a new local environment.
localize :: Member (State (Environment location)) effects => Evaluator location value effects a -> Evaluator location value effects a
localize = localEnv id
-- | Look a 'Name' up in the current environment, trying the default environment if no value is found.
lookupEnv :: Member (Env location) effects => Name -> Evaluator location value effects (Maybe (Address location value))
lookupEnv name = fmap Address <$> send (Lookup name)