16 lines
444 B
Haskell
16 lines
444 B
Haskell
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"
|