diff --git a/Database/Keys/Handle.hs b/Database/Keys/Handle.hs
index 4920ee28ed..801a9ed530 100644
--- 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.