Tennis Kata in Haskell using a simplified Eventsource concept