mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Database/Keys/Handle.hs
View file

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