diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-09 14:55:47 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-09 14:55:47 -0400 |
commit | 819e710ac27f0e50a83eb5f2036b5c4a041c882c (patch) | |
tree | c9282a3d3095ca295cefcffa43d2f822e33fe030 /Database/Handle.hs | |
parent | 26a0189fcb54290b1bad3afadef93804bb818987 (diff) |
stash DbHandle in Annex state
Diffstat (limited to 'Database/Handle.hs')
-rw-r--r-- | Database/Handle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Database/Handle.hs b/Database/Handle.hs index 439e7c18b..6d312df68 100644 --- a/Database/Handle.hs +++ b/Database/Handle.hs @@ -21,7 +21,6 @@ module Database.Handle ( import Utility.Exception import Utility.Monad -import Messages import Database.Persist.Sqlite import qualified Database.Sqlite as Sqlite @@ -35,6 +34,7 @@ import Control.Monad.Trans.Resource (runResourceT) import Control.Monad.Logger (runNoLoggingT) import Data.List import Data.Time.Clock +import System.IO {- A DbHandle is a reference to a worker thread that communicates with - the database. It has a MVar which Jobs are submitted to. -} @@ -79,7 +79,7 @@ type TableName = String workerThread :: T.Text -> TableName -> MVar Job -> IO () workerThread db tablename jobs = catchNonAsync (run loop) showerr where - showerr e = liftIO $ warningIO $ + showerr e = liftIO $ hPutStrLn stderr $ "sqlite worker thread crashed: " ++ show e loop = do |