[Haskell] STM Monad Transformer