[Haskell-beginners] Safe TCP accept loop