{-# LANGUAGE StrictData #-}
module Dodge.Data.Menu
  where
data MenuLayer 
    = LevelMenu Int
    | PauseMenu
    | GameOverMenu
    | OptionMenu
    | SoundOptionMenu
    | GraphicsOptionMenu
    | ControlList
    | WaitMessage String Int
    | Terminal String
    | TerminalMessage Int [(Int,String)]
  deriving (Eq,Ord)