remove unused code

diff --git a/Database/Keys/Handle.hs b/Database/Keys/Handle.hs
index 4920ee28ed7604cc131fc34c2f4221a323129587..801a9ed5307c27358f6ce2bd3a6ff418ce2e1f74 100644 (file)
--- a/Database/Keys/Handle.hs
+++ b/Database/Keys/Handle.hs
@@ -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.