: atomically $ do
if valueInLocalStorage key
then readValueFromLocalStorage key
else do
value <- unsafeIOToSTM $ fetchValueFromDatabase key
writeValueToLocalStorage key va
私はSTMを使用するプログラムをデバッグしようとしています。あなたがここに見ることができるようにThreadScopeの測定値は非常に高いCPUアクティビティを指摘されています だから私は、これが頻繁に中止し、取引のために起こっているかどうかを確認しようとしています。 atomically $ do
someWork
...
`orElse` do
unsafeIO