Haskell 在GHCi中查看TVar的价值

通过并发示例，我有以下代码：

import Control.Concurrent.STM
import Control.Concurrent.STM.TVar

deposit account amount = do
    bal <- readTVar account
    writeTVar account (bal+amount)

import Control.Concurrent.STM
导入控制.Concurrent.STM.TVar
存款账户金额=do
bal自动支票$存款支票10

如何验证我的支票余额为110美元

我试过了

*Main> checking
*Main> readTVar checking
*Main> balance <- readTVar checking

*Main>检查
*Main>readTVar检查
*Main>余额
自动$readTVar检查
实现您想要的功能。GHCi REPL自动执行您给它的任何IO操作。
对于这个简单的例子，还有
readTVarIO
，它在原子上等同于
。readTVar
但效率更高。
*Main> checking
*Main> readTVar checking
*Main> balance <- readTVar checking