[Haskell] reader-like IO, parents of threads