diff options
| -rw-r--r-- | Database/Handle.hs | 2 | ||||
| -rw-r--r-- | git-annex.cabal | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Database/Handle.hs b/Database/Handle.hs index 5d33105f2..cb398ddc2 100644 --- a/Database/Handle.hs +++ b/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 diff --git a/git-annex.cabal b/git-annex.cabal index f9d1be316..676cae4dd 100644 --- a/git-annex.cabal +++ b/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 |