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

whoops

Browse Source
This commit is contained in:
Patrick Thomson 2018-10-16 17:18:59 -04:00
parent 37522ddc35
commit fb1806f3e9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Semantic/Resource.hs
View File

@ -30,6 +30,7 @@ runResource :: (Member (Lift IO) effects, PureEffects effects)
-> Eff (Resource ': effects) a
-> Eff effects a
runResource handler = interpret (\(Resource fore aft go)
-> liftIO (Exc.bracket (handler (runResource handler fore))
(handler . runResource handler . aft)
(handler . runResource handler . go)
-> liftIO (Exc.bracket
(handler (runResource handler fore))
(handler . runResource handler . aft)
(handler . runResource handler . go)))