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"
|