diff options
Diffstat (limited to 'Database/Keys/Handle.hs')
| -rw-r--r-- | Database/Keys/Handle.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Database/Keys/Handle.hs b/Database/Keys/Handle.hs index 1ef16d031..eec9e0fda 100644 --- a/Database/Keys/Handle.hs +++ b/Database/Keys/Handle.hs @@ -8,6 +8,7 @@ module Database.Keys.Handle ( DbHandle, newDbHandle, + unavailableDbHandle, DbState(..), withDbState, flushDbQueue, @@ -33,6 +34,9 @@ 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. |