From 1e06157ead17eb9cb2b59f7bf84cb4da6f10e8bb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 4 Sep 2017 14:00:54 -0400 Subject: flush queued changes to export db on exit --- Database/Export.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Database') diff --git a/Database/Export.hs b/Database/Export.hs index bc79af29f..e2986d075 100644 --- a/Database/Export.hs +++ b/Database/Export.hs @@ -30,7 +30,7 @@ import Types.Remote (ExportLocation(..)) import Database.Persist.TH import Database.Esqueleto hiding (Key) -data ExportHandle = ExportHandle H.DbQueue +newtype ExportHandle = ExportHandle H.DbQueue share [mkPersist sqlSettings, mkMigrate "migrateExport"] [persistLowerCase| Exported -- cgit v1.2.3