Update key event remapping

src/Dodge/Prototypes.hs

@@ -19,7 +19,7 @@ import qualified Data.Map as M
 import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
-import Dodge.KeyEvents (keyremap)
+import Dodge.KeyEvents (keyremapDefault)
 
 -- defalt datatypes / prototypes {{{
 basicWall = Wall { _wlLine = [(0,0),(50,0)]
@@ -176,6 +176,7 @@ basicPP = PressPlate
     , _ppText = "Pressure plate"
     }
 -- }}}
+
 basicWorld = World
     { _keys = S.empty
     , _mouseButtons = S.empty
@@ -224,7 +225,7 @@ basicWorld = World
     , _lightSources = IM.empty
     , _tempLightSources = [youLight]
     , _closeActiveObjects = []
-    , _remap = keyremap
+    , _remap = keyremapDefault
     }
 youLight = 
 --    LS {_lsEff = \w _ p -> (logistic 1 1 1 (d p w * 0.01) )