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

lookupEnv is an Env request.

Browse Source
This commit is contained in:
Rob Rix 2018-05-29 17:03:22 -04:00
parent 6535eebf0a
commit afc99742c6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,8 +69,8 @@ localize :: Member (State (Environment location)) effects => Evaluator location
localize = localEnv id
-- | Look a 'Name' up in the current environment, trying the default environment if no value is found.
lookupEnv :: (Member (Reader (Environment location)) effects, Member (State (Environment location)) effects) => Name -> Evaluator location value effects (Maybe (Address location value))
lookupEnv name = (<|>) <$> (Env.lookup name <$> getEnv) <*> (Env.lookup name <$> defaultEnvironment)
lookupEnv :: Member (Env location) effects => Name -> Evaluator location value effects (Maybe (Address location value))
lookupEnv name = fmap Address <$> send (Lookup name)
data Env location return where