How to best synchronize game engine and network server in Haskell?...

Why is this Yampa ball-bouncing going into an endless loop?...