From 5da1a785086910c32559a46f9110779d765af0cd Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 6 Jun 2022 12:36:55 -0400
Subject: [PATCH] add debugging around commits to sqlite dbs

---
 Database/Handle.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/Database/Handle.hs b/Database/Handle.hs
index cc3d7c35f9..9c04f701b1 100644
--- a/Database/Handle.hs
+++ b/Database/Handle.hs
@@ -5,7 +5,7 @@
  - Licensed under the GNU AGPL version 3 or higher.
  -}
 
-{-# LANGUAGE TypeFamilies, FlexibleContexts #-}
+{-# LANGUAGE TypeFamilies, FlexibleContexts, OverloadedStrings #-}
 
 module Database.Handle (
 	DbHandle,
@@ -19,6 +19,7 @@ module Database.Handle (
 
 import Utility.Exception
 import Utility.FileSystemEncoding
+import Utility.Debug
 import Utility.DebugLocks
 
 import Database.Persist.Sqlite
@@ -100,10 +101,16 @@ commitDb h wa = robustly Nothing 100 (commitDb' h wa)
 
 commitDb' :: DbHandle -> SqlPersistM () -> IO (Either SomeException ())
 commitDb' (DbHandle _ jobs) a = do
+	debug "Database.Handle" "commitDb start"
 	res <- newEmptyMVar
 	putMVar jobs $ ChangeJob $
 		debugLocks $ liftIO . putMVar res =<< tryNonAsync a
-	debugLocks $ takeMVar res
+	r <- debugLocks $ takeMVar res
+	case r of
+		Right () -> debug "Database.Handle" "commitDb done"
+		Left e -> debug "Database.Handle" ("commitDb failed: " ++ show e)
+
+	return r
 
 data Job
 	= QueryJob (SqlPersistM ())