Move debug flags to config, various perf improvements

src/Dodge/Data.hs

@@ -13,7 +13,6 @@ import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.Perception.Data
 import Dodge.Creature.Memory.Data
-import Dodge.Debug.Flag.Data
 import Dodge.Data.SoundOrigin
 import Dodge.Data.DamageType
 import Dodge.Zone.Data
@@ -71,7 +70,7 @@ data World = World
     , _worldEvents          :: World -> World
     , _pressPlates          :: IM.IntMap PressPlate
     , _buttons              :: IM.IntMap Button
-    , _sounds               :: M.Map SoundOrigin Sound
+    , _toPlaySounds         :: M.Map SoundOrigin Sound
     , _playingSounds        :: M.Map SoundOrigin Sound
     , _decorations          :: IM.IntMap Picture
     , _foregroundShape      :: Shape
@@ -97,7 +96,6 @@ data World = World
     , _keyConfig            :: KeyConfigSDL
     , _config               :: Configuration
     , _sideEffects          :: World -> IO World
-    , _debugFlags           :: DebugFlags
     , _inventoryMode        :: InventoryMode
     , _lClickHammer         :: HammerPosition
     , _radDistortion        :: [(Point2,Point2,Point2,Float)]
@@ -504,11 +502,6 @@ data Projectile
         }
 data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
 
-data Wall' = Wall'
-    { _wlLine' :: (Point2,Point2)
-    , _wlColor' :: Color
-    }
-
 data Wall 
     = Wall 
         { _wlLine :: (Point2,Point2)