rebase keyconfig changes

src/Dodge/Default.hs

@@ -20,6 +20,8 @@ import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
 
+import LoadConfig
+
 -- defalt datatypes / prototypes {{{
 defaultWall = Wall { _wlLine = [(0,0),(50,0)]
                    , _wlID = 0
@@ -229,6 +231,7 @@ defaultWorld = World
         ,(1, (const (0,0) , "START POSITION"))
         ]
     , _selLocation = 0
+    , _keyConfig = defaultKeyConfigSDL
     }
 youLight = 
 --    LS {_lsEff = \w _ p -> (logistic 1 1 1 (d p w * 0.01) )