-- Describes the current state of the game, -- e.g. Main menu, game, pause, win or lose -- Allows to easily go to a next state and change rendering accordingly module RPGEngine.Data.State ( State(..) , defaultState , nextState ) where import RPGEngine.Data ----------------------------- Constants ------------------------------ -- Default state of the game, Menu defaultState :: State defaultState = Menu ---------------------------------------------------------------------- -- Get the next state based on the current state nextState :: State -> State nextState Menu = Playing nextState Playing = Pause nextState Pause = Playing nextState _ = Menu ----------------------------------------------------------------------