diff options
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 6d312df68..67f759265 100644 --- a/Database/Handle.hs +++ b/Database/Handle.hs @@ -142,9 +142,9 @@ queryDb (DbHandle _ jobs _) a = do closeDb :: DbHandle -> IO () closeDb h@(DbHandle worker jobs _) = do - flushQueueDb h putMVar jobs CloseJob wait worker + flushQueueDb h type Size = Int |