Gloss GUI events not responding about reactive-banana HOT 5 OPEN

   picRef ← newIORef blank
  
   network <- compile $ networkDescriptor picRef eventHandler
   actuate network
   let handleEvent e@(EventKey k Down _ _) = case k of
            (SpecialKey KeySpace) -> event e
            _                   -> return ()
       handleEvent e = return ()

   Gloss.playIO
    (InWindow "Functional Reactive" (320, 240) (800, 200))
    white
    30
    ()
    (\() -> readIORef picRef)
    (\ ev () -> handleEvent ev)
    (\_ () -> pure ())

game picRef eventAddHandler renderAddHandler = do
  onEvent <- fromAddHandler eventAddHandler
  onSample <- fromAddHandler sampleAddHandler
  
  -- Here we accumulate gloss events into a new world state. 'accumB' means that I just draw a new state ?
  worldState <- accumB .. ..

  -- Whenever 'onRender' fires. Could you explain what 'onRender' here means ?
  reactimate $ writeIORef picRef . drawWorld <$> worldState <@ onRender

networkDescriptor :: IORef Picture -> EventSource() -> MomentIO ()
networkDescriptor lastFrame  displayGlossEvent = do
  glossEvent <- fromAddHandler (addHandler displayGlossEvent )
  reactimate $ putStrLn . showValue <$> glossEvent

  picture <- liftMoment (handleKeys displayGlossEvent )
  changes picture >>= reactimate' . fmap (fmap (writeIORef lastFrame))
  valueBLater picture >>= liftIO . writeIORef lastFrame

showValue value = "Value is " ++ show value

handleKeys :: EventSource ()  -> Moment (Behavior Picture)
handleKeys glossEvent = do


  let picture = drawBoard
  return $ pure picture