WIP

Database/Handle.hs

@@ -107,7 +107,7 @@ workerThread db jobs = catchNonAsync loop showerr
  -}
 queryDb :: DbHandle -> a -> SqlPersistM a -> IO a
 queryDb (DbHandle _ jobs _) fallback a =
-	catchNonAsync go (\_ -> return fallback )
+	catchNonAsync go (\e -> print e >> return fallback )
   where
 	go = do
 		res <- newEmptyMVar

git-annex.cabal

@@ -111,7 +111,7 @@ Executable git-annex
    SafeSemaphore, uuid, random, dlist, unix-compat, async, stm (>= 2.3),
    data-default, case-insensitive, http-conduit, http-types,
    cryptohash (>= 0.10.0),
-   esqueleto, persistent-sqlite, persistent, persistent-template
+   esqueleto, persistent-sqlite (>= 2.1.0.1), persistent, persistent-template
   CC-Options: -Wall
   GHC-Options: -Wall
   Extensions: PackageImports