display sqlite error message when it crashes

2019-10-24 11:50:55 -04:00 · 2019-10-24 11:50:55 -04:00 · 098afe144e
commit 098afe144e
parent 168f91efec
1 changed files with 1 additions and 1 deletions
--- a/Database/Handle.hs
+++ b/Database/Handle.hs
@ -99,7 +99,7 @@ queryDb (DbHandle _ _ jobs) a = do
 	putMVar jobs $ QueryJob $
 		liftIO . putMVar res =<< tryNonAsync a
 	(either throwIO return =<< takeMVar res)
-		`catchNonAsync` (const $ error "sqlite query crashed")
+		`catchNonAsync` (\e -> error $ "sqlite query crashed: " ++ show e)

 {- Writes a change to the database.
 -