makeNetworkDescription :: Frameworks t => AddHandler Char -> Moment t ()
makeNetworkDescription addKeyEvent = do
  keyEvents <- fromAddHandler addKeyEvent
  game <- changes $ snake keyEvents
  reactimate' $ fmap (fmap render) game
makeNetworkDescription :: Frameworks t => AddHandler Char -> Moment t ()
makeNetworkDescription addKeyEvent = do
  keyEvents <- fromAddHandler addKeyEvent
  game <- changes $ snake keyEvents
  reactimate' $ fmap (fmap render) game
makeNetworkDescription addKeyEvent = do
  keyEvents <- fromAddHandler addKeyEvent
  game <- changes $ snake keyEvents
  reactimate' $ fmap (fmap render) game