makeBaseEvents :: _ => Sugar.Payload v o -> GuiM env i o (EventMap (o GuiState.Update))
makeBaseEvents pl = exprInfoFromPl ?? pl >>= baseEvents
makeBaseEvents :: _ => Sugar.Payload v o -> GuiM env i o (EventMap (o GuiState.Update))
makeBaseEvents pl = exprInfoFromPl ?? pl >>= baseEvents
makeBaseEvents pl = exprInfoFromPl ?? pl >>= baseEvents