diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-02-18 17:46:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-18 17:46:58 -0400 |
| commit | 0ed5bd4460eb0da9c6903082434848e395d8d54c (patch) | |
| tree | db45ae976253266839397741b32085de0f18508d /Database/Handle.hs | |
| parent | f306a34f4a5fca40802c14411db25836d82c77f7 (diff) | |
WIP
Diffstat (limited to 'Database/Handle.hs')
| -rw-r--r-- | Database/Handle.hs | 2 |
1 files changed, 1 insertions, 1 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 |