Enable use of acid-store's createArchive

haskell · May 3, 2020 · d430121 · d430121
1 parent 3e50f31
commit d430121
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Distribution/Server/Framework/Feature.hs b/Distribution/Server/Framework/Feature.hs
@@ -150,7 +150,7 @@ abstractAcidStateComponent' :: MemSize st
                             -> StateComponent AcidState st -> AbstractStateComponent
 abstractAcidStateComponent' cmp st = AbstractStateComponent {
     abstractStateDesc       = stateDesc st
-  , abstractStateCheckpoint = createCheckpoint (stateHandle st)
+  , abstractStateCheckpoint = createCheckpoint (stateHandle st) *> createArchive (stateHandle st)
   , abstractStateClose      = closeAcidState (stateHandle st)
   , abstractStateBackup     = \t -> liftM (backupState st t) (getState st)
   , abstractStateRestore    = abstractRestoreBackup (putState st) (restoreState st)