module Level (Level(..), bounds) where

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

data Level = Easy | Normal | Hard deriving (Enum, Bounded)

instance Promptable Level where
  menu = Menu {
        title = "Choix du niveau de difficulte"
      , question = "Entrez le numero du mode qui vous interesse : "
      , invalidText = "Votre choix n'est pas valide, merci de taper 1, 2 ou 3 selon le niveau de difficulte que vous souhaitez activer."
    }

  showOption Easy = "Facile : le nombre a trouver est compris entre 1 et 100" 
  showOption Normal = "Moyen : le nombre a trouver est compris entre 1 et 1000"
  showOption Hard = "Difficile : le nombre a trouver est compris entre 1 et 10000"

bounds :: Level -> (Int, Int)
bounds Easy = (1, 100)
bounds Normal = (1, 1000)
bounds Hard = (1, 10000)