{-# LANGUAGE TemplateHaskell #-}

module Ribosome.Menu.Data.MenuUpdate where

import Control.Lens (makeClassy)

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

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

makeClassy ''MenuUpdate