module Ribosome.Menu.Data.MenuUpdate where

import Ribosome.Menu.Data.Menu (Menu)
import Ribosome.Menu.Data.MenuEvent (MenuEvent)

data MenuUpdate m a i =
  MenuUpdate {
    MenuUpdate m a i -> MenuEvent m a i
_event :: MenuEvent m a i,
    MenuUpdate m a i -> Menu i
_menu :: Menu i
  }

makeClassy ''MenuUpdate