[Haskell] Re: Network accept loop with graceful shutdown implementation