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

export sends Export.

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

@ -32,8 +32,8 @@ getEnv :: Member (Env address) effects => Evaluator address value effects (Envir
getEnv = send GetEnv
-- | 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
export :: Member (Env address) effects => Name -> Name -> Maybe address -> Evaluator address value effects ()
export name alias addr = send (Export name alias addr)
-- | Look a 'Name' up in the current environment, trying the default environment if no value is found.