fix typo in previous merge
This commit is contained in:
parent
efb6b65506
commit
747fd0ae87
2 changed files with 2 additions and 2 deletions
|
@ -52,7 +52,7 @@ modifyMVar m io =
|
||||||
|
|
||||||
addMVarFinalizer :: MonadControlIO m => MVar a -> m () -> m ()
|
addMVarFinalizer :: MonadControlIO m => MVar a -> m () -> m ()
|
||||||
addMVarFinalizer mvar f = controlIO $ \run ->
|
addMVarFinalizer mvar f = controlIO $ \run ->
|
||||||
return $ liftIO $ addMVarFinalizer mvar (run f >> return ())
|
return $ liftIO $ IO.addMVarFinalizer mvar (run f >> return ())
|
||||||
|
|
||||||
modifyMVar_ :: (MonadControlIO m) => MVar a -> (a -> m a) -> m ()
|
modifyMVar_ :: (MonadControlIO m) => MVar a -> (a -> m a) -> m ()
|
||||||
modifyMVar_ var act = modifyMVar var $ \a -> do
|
modifyMVar_ var act = modifyMVar var $ \a -> do
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
name: mongoDB
|
name: mongoDB
|
||||||
version: 1.0.2
|
version: 1.0.3
|
||||||
build-type: Simple
|
build-type: Simple
|
||||||
license: OtherLicense
|
license: OtherLicense
|
||||||
license-file: LICENSE
|
license-file: LICENSE
|
||||||
|
|
Loading…
Reference in a new issue