barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-29 00:22:38 +03:00
Code Issues Projects Releases Wiki Activity

Fix compilation error with exceptions-0.9.0

Browse Source
This commit is contained in:
Michael Walker 2018-03-08 22:51:20 +00:00
parent 87f9de4851
commit 67400d08b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dejafu/Test/DejaFu/Conc.hs
View File

@ -134,9 +134,9 @@ instance Ca.MonadMask (ConcT r n) where
#if MIN_VERSION_exceptions(0,9,0)
-- from https://github.com/fpco/stackage/issues/3315#issuecomment-368583481
generalBracket acquire release cleanup use = mask $ \unmasked -> do
generalBracket acquire release cleanup use = Ca.mask $ \unmasked -> do
resource <- acquire
result <- unmasked (use resource) `catch` (\e -> cleanup resource e >> throwM e)
result <- unmasked (use resource) `Ca.catch` (\e -> cleanup resource e >> Ca.throwM e)
_ <- release resource
pure result
#endif