github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Add a heading for the effects.

Browse Source
This commit is contained in:
Rob Rix 2018-05-31 10:09:57 -04:00
parent f2d51d3802
commit a994c66f0b
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/Control/Abstract/Environment.hs
View File

@ -9,6 +9,7 @@ module Control.Abstract.Environment
, bindAll , bindAll
, locally , locally
, close , close
-- * Effects
, Env(..) , Env(..)
, runEnv , runEnv
, EnvironmentError(..) , EnvironmentError(..)
@ -56,6 +57,9 @@ locally a = do
close :: Member (Env address) effects => Set Name -> Evaluator address value effects (Environment address) close :: Member (Env address) effects => Set Name -> Evaluator address value effects (Environment address)
close = send . Close close = send . Close
-- Effects
data Env address return where data Env address return where
Lookup :: Name -> Env address (Maybe address) Lookup :: Name -> Env address (Maybe address)
Bind :: Name -> address -> Env address () Bind :: Name -> address -> Env address ()