mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Joey Hess 2015-02-18 17:46:58 -04:00
parent a01285ff33
commit b541a5e38b
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Database/Handle.hs
View file

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

2
git-annex.cabal
View file

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