[Haskell-cafe] STM: "nested atomically" error