Cleanup warnings

src/Dodge/Creature/YourControl.hs

@@ -1,10 +1,10 @@
 module Dodge.Creature.YourControl
   where
 import Dodge.Data
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Creature.Action
-import Dodge.Creature.State
-import Dodge.Creature.State.Data
+--import Dodge.Creature.State
+--import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Update.UsingInput
 import Dodge.Config.KeyConfig
@@ -43,7 +43,7 @@ wasdWithAiming w speed i cr
     mov = rotateV (negate $ _crDir cr - _cameraRot w) mov'
     isAiming    = _posture (_crStance cr) == Aiming
     isMoving    = mov' /= (0,0)
-    mouseDir = case w ^? creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0))
+    mouseDir = case w ^? creatures . ix i . crInv . ix (_crInvSel (_creatures w IM.! i))
                               . itAttachment of
         Just (Just ItScope{_scopePos = p}) -> normalizeAngle $ argV
                                 $ p +.+ 2 / _cameraZoom w 
@@ -67,9 +67,9 @@ wasdComp ks w = f $ foldr ( (+.+) . wasdM w ) (0,0) ks
 
 {- | Set posture according to mouse presses. -}
 mouseActionsCr :: S.Set SDL.MouseButton -> Creature -> Creature
-mouseActionsCr keys 
+mouseActionsCr pkeys 
     | rbPressed = crStance . posture .~ Aiming
     | otherwise = crStance . posture .~ AtEase
   where 
-    lbPressed = SDL.ButtonLeft  `S.member` keys
-    rbPressed = SDL.ButtonRight `S.member` keys
+    --lbPressed = SDL.ButtonLeft  `S.member` pkeys
+    rbPressed = SDL.ButtonRight `S.member` pkeys