io-sim: updated tests & benchmarks

Author: coot

cabal.project

@@ -16,8 +16,8 @@ package strict-stm
 source-repository-package
   type: git
   location: https://github.com/input-output-hk/typed-protocols
-  tag: b00ba45ed0c81284378ddea9a42c96e8ccb855e0
-  --sha256: 1qdp1wbvbmcs8z0c8phjz58w1zfwb1lkb0bjh7ksfy3hyrzcs07i
+  tag: aa570239bf1ed7303b730317e89d9a80d214ad38
+  --sha256: 0vfn0cdschyfc9j7cbbmxls0yq588xg2vmsf10bx6wgpxf9wkd2m
   subdir:
     typed-protocols
     typed-protocols-cborg

io-sim/bench/Main.hs

@@ -3,10 +3,10 @@
 
 module Main (main) where
 
+import           Control.Concurrent.Class.MonadSTM
 import           Control.Monad (replicateM)
 import           Control.Monad.Class.MonadAsync
 import           Control.Monad.Class.MonadFork
-import           Control.Monad.Class.MonadSTM
 import           Control.Monad.Class.MonadSay
 import           Control.Monad.Class.MonadThrow
 import           Control.Monad.Class.MonadTimer

io-sim/test/Test/Control/Monad/IOSimPOR.hs

@@ -8,6 +8,7 @@
 
 module Test.Control.Monad.IOSimPOR where
 
+import           Control.Concurrent.Class.MonadSTM.TVar
 import           Control.Monad
 import           Control.Monad.Class.MonadFork
 import           Control.Monad.Class.MonadSTM

io-sim/test/Test/IOSim.hs

@@ -24,9 +24,9 @@ import           Control.Monad
 import           Control.Monad.Fix
 import           System.IO.Error (ioeGetErrorString, isUserError)
 
+import           Control.Concurrent.Class.MonadSTM.Strict
+import qualified Control.Concurrent.Class.MonadSTM.TVar as LazySTM
 import           Control.Monad.Class.MonadFork
-import qualified Control.Monad.Class.MonadSTM as LazySTM
-import           Control.Monad.Class.MonadSTM.Strict
 import           Control.Monad.Class.MonadSay
 import           Control.Monad.Class.MonadThrow
 import           Control.Monad.Class.MonadTime

io-sim/test/Test/STM.hs

@@ -30,6 +30,7 @@ import qualified Data.Set as Set
 import           Data.Type.Equality
 import           Prelude hiding (exp)
 
+import           Control.Concurrent.Class.MonadSTM.TVar as STM
 import           Control.Monad.Class.MonadSTM as STM
 import           Control.Monad.Class.MonadThrow