github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 21:01:35 +03:00
Code Issues Projects Releases Wiki Activity

remove pureeffect

Browse Source
This commit is contained in:
joshvera 2018-11-01 22:32:46 -04:00
parent 5234688d9c
commit 82c50ed96d
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Abstract/ScopeGraph.hs
View File

@ -223,8 +223,6 @@ alloc = send . Alloc
data Allocator address (m :: * -> *) return where
Alloc :: Name -> Allocator address m address
instance PureEffect (Allocator address)
instance Effect (Allocator address) where
handleState c dist (Request (Alloc name) k) = Request (Alloc name) (dist . (<$ c) . k)