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

🔥 putExports.

Browse Source
This commit is contained in:
Rob Rix 2018-05-30 14:20:01 -04:00
parent f4c33d4d8f
commit 7d67ee3905
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/Exports.hs
View File

@ -1,7 +1,6 @@
module Control.Abstract.Exports
( Exports
, getExports
, putExports
, addExport
, withExports
) where
@ -14,10 +13,6 @@ import Data.Abstract.Name
getExports :: Member (State (Exports address)) effects => Evaluator address value effects (Exports address)
getExports = get
-- | Set the global export state.
putExports :: Member (State (Exports address)) effects => Exports address -> Evaluator address value effects ()
putExports = put
-- | Update the global export state.
modifyExports :: Member (State (Exports address)) effects => (Exports address -> Exports address) -> Evaluator address value effects ()
modifyExports = modify'