flush queued changes to export db on exit

Command/Export.hs

@@ -108,6 +108,8 @@ seek o = do
 	seekActions $ pure $ map (startExport r db) l
 	void $ liftIO cleanup'
 
+	closeDb db
+
 startExport :: Remote -> ExportHandle -> Git.LsTree.TreeItem -> CommandStart
 startExport r db ti = do
 	ek <- exportKey (Git.LsTree.sha ti)

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