module MainMenu (MainMenu(..)) where

import Menu (Menu(..), Promptable(..))

data MainMenu = Play | ChangeSettings | Quit deriving (Enum, Bounded)

instance Promptable MainMenu where
  menu = Menu {
        title = "Menu principal"
      , question = "Choisissez une action"
      , invalidText = "Ce choix n'est pas valide"
    }
  showOption Play = "Jouer"
  showOption ChangeSettings = "Changer les réglages"
  showOption Quit = "Quitter"