  case desc ^. GameUI.customEventHandler of
    Just f -> (liftIO . toIO $ packAnyHasIOUIToUIState <$> f event state) >>= continue
    Nothing -> continue $ packUIState state ui

dispatchVtyEventGameUI ::
  (ToIO m, HasUI m s e) =>
  s ->
  UI m s e ->