[Haskell-cafe] pool: Why doesn't it block?