github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 17:04:47 +03:00
Code Issues Projects Releases Wiki Activity

🔥 getExports.

Browse Source
This commit is contained in:
Rob Rix 2018-05-30 15:14:17 -04:00
parent cb961fa994
commit da79d76872
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

@ -3,7 +3,6 @@ module Control.Abstract.Environment
( Environment
, Exports
, getEnv
, getExports
, export
, lookupEnv
, bind
@ -32,10 +31,6 @@ import Prologue
getEnv :: Member (Env address) effects => Evaluator address value effects (Environment address)
getEnv = send GetEnv
-- | Get the global export state.
getExports :: Member (State (Exports address)) effects => Evaluator address value effects (Exports address)
getExports = get
-- | Add an export to the global export state.
export :: Member (State (Exports address)) effects => Name -> Name -> Maybe address -> Evaluator address value effects ()
export name alias = modify' . insert name alias