mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages1 Wiki Activity Actions

remove unused code

Browse source
This commit is contained in:
Joey Hess 2021-07-30 18:01:36 -04:00
parent 748addbe05
commit 9f94d2894e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 4 deletions

4
Database/Keys/Handle.hs
View file

@ -8,7 +8,6 @@
module Database.Keys.Handle (
DbHandle,
newDbHandle,
unavailableDbHandle,
DbState(..),
withDbState,
flushDbQueue,
@ -34,9 +33,6 @@ data DbState = DbClosed | DbOpen H.DbQueue | DbUnavailable
newDbHandle :: IO DbHandle
newDbHandle = DbHandle <$> newMVar DbClosed
unavailableDbHandle :: IO DbHandle
unavailableDbHandle = DbHandle <$> newMVar DbUnavailable
-- Runs an action on the state of the handle, which can change its state.
-- The MVar is empty while the action runs, which blocks other users
-- of the handle from running.