refactoring #32 | define reader on Block instead of BlockHeaderHash

cardano-foundation · Mar 11, 2019 · 633d8ab · 633d8ab
1 parent 1b97e4d
commit 633d8ab
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/test/unit/Cardano/Wallet/BlockSyncerSpec.hs b/test/unit/Cardano/Wallet/BlockSyncerSpec.hs
@@ -153,3 +153,10 @@ mkReader ref m k = do
             modifyMVar_ ref $ return . (v :)
         Nothing ->
             return ()
+
+mkReader'
+    :: MVar [a]
+    -> a
+    -> IO ()
+mkReader' ref x = do
+    modifyMVar_ ref $ return . (x :)