ribosome-0.4.0.0: lib/Ribosome/Menu/Data/MenuItem.hs

module Ribosome.Menu.Data.MenuItem where

data MenuItem a =
  MenuItem {
    _meta :: a,
    _text :: Text,
    _abbreviated :: Text
  }
  deriving (Eq, Show, Ord, Functor)

makeClassy ''MenuItem

simpleMenuItem :: a -> Text -> MenuItem a
simpleMenuItem a t =
  MenuItem a t t