Use ActionRegistry instead of TempRegistry everywhere

lsm-tree.cabal

@@ -846,16 +846,13 @@ library control
     Control.ActionRegistry
     Control.Concurrent.Class.MonadSTM.RWVar
     Control.RefCount
-    Control.TempRegistry
 
   build-depends:
-    , base                    >=4.14 && <4.22
-    , containers              ^>=0.6 || ^>=0.7
-    , deepseq                 ^>=1.4 || ^>=1.5
-    , io-classes              ^>=1.6 || ^>=1.7
-    , io-classes:strict-mvar
+    , base                   >=4.14 && <4.22
+    , deepseq                ^>=1.4 || ^>=1.5
+    , io-classes             ^>=1.6 || ^>=1.7
     , io-classes:strict-stm
-    , primitive               ^>=0.9
+    , primitive              ^>=0.9
 
 test-suite control-test
   import:         language, warnings

src-control/Control/ActionRegistry.hs

@@ -34,8 +34,6 @@ import           Data.List.NonEmpty (NonEmpty (..))
 import qualified Data.List.NonEmpty as NE
 import           Data.Primitive.MutVar
 
--- TODO: replace TempRegistry by ActionRegistry
-
 -- TODO: add tests using fs-sim/io-sim to make sure exception safety is
 -- guaranteed.
 
@@ -249,8 +247,8 @@ unsafeFinaliseActionRegistry reg ec = case ec of
 unsafeCommitActionRegistry :: (PrimMonad m, MonadCatch m) => ActionRegistry m -> m ()
 unsafeCommitActionRegistry reg = do
     as <- readMutVar (registryDelay reg)
-    -- Run actions in LIFO order
-    r <- runActions as
+    -- Run actions in FIFO order
+    r <- runActions (reverse as)
     case NE.nonEmpty r of
       Nothing         -> pure ()
       Just exceptions -> throwIO (CommitActionRegistryError exceptions)