Rename StrictMVar module to StrictSVar.

IntersectMBO · Jun 2, 2023 · d34361d · d34361d
1 parent 08d3402
commit d34361d
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/ouroboros-consensus/ouroboros-consensus.cabal b/ouroboros-consensus/ouroboros-consensus.cabal
@@ -243,7 +243,7 @@ library
     Ouroboros.Consensus.Util.IOLike
     Ouroboros.Consensus.Util.MonadSTM.NormalForm
     Ouroboros.Consensus.Util.MonadSTM.RAWLock
-    Ouroboros.Consensus.Util.MonadSTM.StrictMVar
+    Ouroboros.Consensus.Util.MonadSTM.StrictSVar
     Ouroboros.Consensus.Util.Orphans
     Ouroboros.Consensus.Util.RedundantConstraints
     Ouroboros.Consensus.Util.ResourceRegistry

diff --git a/...ensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/ImmutableDB/Impl/Index/Cache.hs b/...ensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/ImmutableDB/Impl/Index/Cache.hs
@@ -74,7 +74,7 @@ import           Ouroboros.Consensus.Storage.ImmutableDB.Impl.Util
 import           Ouroboros.Consensus.Util (takeUntil, whenJust)
 import           Ouroboros.Consensus.Util.CallStack
 import           Ouroboros.Consensus.Util.IOLike
-import qualified Ouroboros.Consensus.Util.MonadSTM.StrictMVar as Strict
+import qualified Ouroboros.Consensus.Util.MonadSTM.StrictSVar as Strict
 import           Ouroboros.Consensus.Util.ResourceRegistry
 import           System.FS.API (HasFS (..), withFile)
 import           System.FS.API.Types (AllowExisting (..), Handle,

diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/MonadSTM/NormalForm.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/MonadSTM/NormalForm.hs
@@ -1,6 +1,6 @@
 module Ouroboros.Consensus.Util.MonadSTM.NormalForm (
     module LazySTM
-  , module Ouroboros.Consensus.Util.MonadSTM.StrictMVar
+  , module Ouroboros.Consensus.Util.MonadSTM.StrictSVar
   , module StrictSTM
   , newEmptyMVar
   , newMVar
@@ -23,10 +23,10 @@ import           Control.Concurrent.Class.MonadSTM.TQueue as LazySTM
 import           Control.Monad.Class.MonadSTM as StrictSTM
 import           GHC.Stack
 import           NoThunks.Class (NoThunks (..), unsafeNoThunks)
-import           Ouroboros.Consensus.Util.MonadSTM.StrictMVar hiding
+import           Ouroboros.Consensus.Util.MonadSTM.StrictSVar hiding
                      (newEmptyMVar, newEmptyMVarWithInvariant, newMVar,
                      newMVarWithInvariant)
-import qualified Ouroboros.Consensus.Util.MonadSTM.StrictMVar as Strict
+import qualified Ouroboros.Consensus.Util.MonadSTM.StrictSVar as Strict
 
 -- TODO: use strict versions of 'TQueue' and 'TBQueue'.  Previously the
 -- 'Control.Monad.Class.MonadSTM.Strict' was imported which

diff --git a/...ros/Consensus/Util/MonadSTM/StrictMVar.hs → ...ros/Consensus/Util/MonadSTM/StrictSVar.hs b/...ros/Consensus/Util/MonadSTM/StrictMVar.hs → ...ros/Consensus/Util/MonadSTM/StrictSVar.hs
@@ -7,7 +7,7 @@
 
 -- TODO: this module ought to use 'MonadMVar'
 -- See https://github.com/input-output-hk/io-sim/issues/34
-module Ouroboros.Consensus.Util.MonadSTM.StrictMVar (
+module Ouroboros.Consensus.Util.MonadSTM.StrictSVar (
     castStrictMVar
   , isEmptyMVar
   , modifyMVar