Change keycode input to scancode

src/Dodge/Data.hs

@@ -27,7 +27,7 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 
 import qualified SDL.Mixer as Mix
-import SDL (Keycode, MouseButton)
+import SDL (Scancode, MouseButton)
 import Graphics.Rendering.OpenGL (PrimitiveMode (..),GLfloat,Program,VertexArrayObject,BufferObject)
 import Codec.Picture (Image,PixelRGBA8)
 
@@ -36,7 +36,7 @@ import qualified Data.DList as DL
 --}}}
 -- datatypes {{{
 data World = World 
-                { _keys             :: !(S.Set Keycode)
+                { _keys             :: !(S.Set Scancode)
                 , _mouseButtons     :: !(S.Set MouseButton)
                 , _cameraPos        :: !Point2
                 , _cameraAimTime    :: Int
@@ -80,7 +80,7 @@ data World = World
                 , _lightSources     :: !(IM.IntMap LightSource)
                 , _tempLightSources :: ![TempLightSource]
                 , _closeActiveObjects :: [Either FloorItem Button]
-                , _remap            :: Keycode -> Keycode
+--                , _remap            :: Keycode -> Keycode
                 } 
 
 data Corpse = Corpse