From 9f94d2894e09f47d86d3a2349a458499236041a7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 30 Jul 2021 18:01:36 -0400
Subject: [PATCH] remove unused code

---
 Database/Keys/Handle.hs | 4 ----
 1 file changed, 4 deletions(-)

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.