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

🔥 withDefaultEnvironment.

Browse Source
This commit is contained in:
Rob Rix 2018-05-29 17:31:56 -04:00
parent 78c32db271
commit d2e9974a0c
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,6 @@ module Control.Abstract.Environment
, putEnv
, modifyEnv
, withEnv
, withDefaultEnvironment
, localEnv
, localize
, lookupEnv
@ -41,11 +40,6 @@ withEnv :: Member (State (Environment location)) effects => Environment location
withEnv = localState . const
-- | Set the default environment for the lifetime of an action.
-- Usually only invoked in a top-level evaluation function.
withDefaultEnvironment :: Member (Reader (Environment location)) effects => Environment location -> Evaluator location value effects a -> Evaluator location value effects a
withDefaultEnvironment e = local (const e)
-- | Run an action with a locally-modified environment.
localEnv :: Member (State (Environment location)) effects => (Environment location -> Environment location) -> Evaluator location value effects a -> Evaluator location value effects a
localEnv f a = do