[Haskell-cafe] thread blocked indefinitely in an STM transaction