Я застрял в понимании концепции атомарности в STM. поясняю на примере import Control.Concurrent import Control.Concurrent.STM import Control.Monad import qualified Data.Map as Map main :: IO () main = do d <- atomically$ newTVar...