rebase keyconfig changes

src/Dodge/Data.hs

@@ -33,6 +33,8 @@ import Codec.Picture (Image,PixelRGBA8)
 
 import qualified Data.DList as DL
 
+import LoadConfig
+
 --}}}
 -- datatypes {{{
 data World = World 
@@ -85,6 +87,7 @@ data World = World
     , _closeActiveObjects   :: [Either FloorItem Button]
     , _seenLocations        :: IM.IntMap (World -> Point2,String)
     , _selLocation          :: Int
+    , _keyConfig            :: KeyConfigSDL
     } 
 
 data Corpse = Corpse