Refactor light sources

src/Dodge/Creature/YourControl.hs

@@ -4,7 +4,7 @@ module Dodge.Creature.YourControl
 import Dodge.Data
 import Dodge.Creature.Impulse.Movement
 import Dodge.Update.UsingInput
-import Dodge.Config.KeyConfig
+--import Dodge.Config.KeyConfig
 import Geometry
 
 import Control.Lens
@@ -49,16 +49,16 @@ wasdWithAiming w speed i cr
                                     *.* rotateV (_cameraRot w) (_mousePos w)
         _ -> normalizeAngle $ argV (_mousePos w) + _cameraRot w
 
-wasdM :: World -> SDL.Scancode -> Point2
-wasdM w scancode 
-    | scancode == moveUpKey    (_keyConfig w) = V2   0    1
-    | scancode == moveDownKey  (_keyConfig w) = V2   0  (-1)
-    | scancode == moveRightKey (_keyConfig w) = V2   1    0
-    | scancode == moveLeftKey  (_keyConfig w) = V2 (-1)   0
-wasdM _ _ = V2 0 0
+wasdM :: SDL.Scancode -> Point2
+wasdM scancode = case scancode of
+    SDL.ScancodeW -> V2   0    1
+    SDL.ScancodeS -> V2   0  (-1)
+    SDL.ScancodeD -> V2   1    0
+    SDL.ScancodeA -> V2 (-1)   0
+    _ -> V2 0 0
 
 wasdDir :: World -> Point2
-wasdDir w = foldr ((+.+) . wasdM w) (V2 0 0) $ _keys w
+wasdDir w = foldr ((+.+) . wasdM) (V2 0 0) $ _keys w
 
 {- | Set posture according to mouse presses. -}
 mouseActionsCr :: S.Set SDL.MouseButton -> Creature -> Creature