Refactor menu

src/Dodge/Data.hs

@@ -3,11 +3,14 @@
 {-# LANGUAGE StrictData #-}
 module Dodge.Data 
     ( module Dodge.Data
+    , module Dodge.Data.Menu
     , Point2 (..)
     , Sound (..)
     , soundTime
     )
   where
+import Dodge.Data.Menu
+
 import Picture.Data
 import Geometry.Data
 import Sound.Data
@@ -78,7 +81,8 @@ data World = World
     , _keyConfig            :: KeyConfigSDL
     , _varMovementSpeedModifier :: Float
     , _varMovementStrafeSpeedModifier :: Float
-    , _debugMode :: Bool
+    , _debugMode            :: Bool
+    , _config               :: Configuration
     } 
 
 data Corpse = Corpse
@@ -242,13 +246,6 @@ data Faction
 data WorldState = DoorNumOpen Int | CrNumAlive Int
   deriving (Eq,Ord)
 
-data MenuState 
-    = LevelMenu Int
-    | PauseMenu
-    | GameOverMenu
-    | InGame
-  deriving (Eq,Ord)
-
 data Button = Button 
     { _btPict :: Picture
     , _btPos :: Point2