Add missing tryReadTBQueue implementations to MonadSTM instances

`tryReadTBQueue` was added to the `MonadSTM type class in 77b111e.
IntersectMBO · Feb 15, 2019 · a53d3c0 · a53d3c0
1 parent 96505f0
commit a53d3c0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/ouroboros-consensus/src/Ouroboros/Storage/FS/Sim/STM.hs b/ouroboros-consensus/src/Ouroboros/Storage/FS/Sim/STM.hs
@@ -111,6 +111,7 @@ instance (MonadFork (SimFS m) , MonadSTM m) => MonadSTM (SimFS m) where
 
   newTBQueue        = lift . newTBQueue
   readTBQueue       = lift . readTBQueue
+  tryReadTBQueue    = lift . tryReadTBQueue
   writeTBQueue    q = lift . writeTBQueue q
 
 simHasFS :: forall m. MonadSTM m => ErrorHandling FsError m -> HasFS (SimFS m)

diff --git a/ouroboros-consensus/test-storage/Test/Ouroboros/Storage/FS/Sim/Error.hs b/ouroboros-consensus/test-storage/Test/Ouroboros/Storage/FS/Sim/Error.hs
@@ -442,6 +442,7 @@ instance (MonadFork (SimErrorFS m) , MonadSTM m) => MonadSTM (SimErrorFS m) wher
 
   newTBQueue        = lift . newTBQueue
   readTBQueue       = lift . readTBQueue
+  tryReadTBQueue    = lift . tryReadTBQueue
   writeTBQueue    q = lift . writeTBQueue q