runTX :: FakeProviderState -> FakeProviderTX a -> IO a
runTX fps tx = atomically (tx fps) >>= \(a, _) -> pure a
runTX :: FakeProviderState -> FakeProviderTX a -> IO a
runTX fps tx = atomically (tx fps) >>= \(a, _) -> pure a
runTX fps tx = atomically (tx fps) >>= \(a, _) -> pure a