(Haskell) Async exceptions, STM, and deadlocks | Hacker News Reader