Refactor menu

src/Dodge/Default.hs

@@ -1,28 +1,28 @@
 {-# LANGUAGE BangPatterns #-}
+{- |
+Module      : Dodge.Default
+Description : Instances of data structures  
+
+This module contains prototypical data structures.
+-}
 module Dodge.Default where
 
 import Dodge.Item.Weapon.Recock
-
 import Dodge.Data
 import Dodge.SoundLogic
 import Dodge.Base
-
+import Dodge.LoadConfig
 import Geometry
 import Picture
 
 import Control.Lens
-
 import System.Random
-
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
 
-import Dodge.LoadConfig
-
--- defalt datatypes / prototypes {{{
 defaultWall = Wall { _wlLine = [(0,0),(50,0)]
                    , _wlID = 0
                    , _wlColor = greyN 0.6
@@ -235,6 +235,7 @@ defaultWorld = World
     , _varMovementSpeedModifier = 3
     , _varMovementStrafeSpeedModifier = 3
     , _debugMode = True
+    , _config       = defaultConfig
     }
 youLight = 
     TLS { _tlsPos = (0,0)