diff options
Diffstat (limited to 'Database/Export.hs')
| -rw-r--r-- | Database/Export.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Export.hs b/Database/Export.hs index dcef88854..00c6ab251 100644 --- a/Database/Export.hs +++ b/Database/Export.hs @@ -48,7 +48,7 @@ openDb u = do unlessM (liftIO $ doesFileExist db) $ do initDb db $ void $ runMigrationSilent migrateExport - h <- liftIO $ H.openDbQueue db "exported" + h <- liftIO $ H.openDbQueue H.SingleWriter db "exported" return $ ExportHandle h closeDb :: ExportHandle -> Annex () |