Cleanup warnings

src/Dodge/Creature/Action.hs

@@ -9,25 +9,25 @@ module Dodge.Creature.Action
 import Dodge.Creature.Action.UseItem
 import Dodge.Creature.Action.Movement
 import Dodge.Creature.Stance.Data
-import Dodge.Creature.State.Data
+--import Dodge.Creature.State.Data
 import Dodge.WorldEvent.Shockwave
-import Dodge.Data hiding (carriage)
+import Dodge.Data
 import Dodge.Base
 import Dodge.SoundLogic
-import Dodge.WorldEvent
+--import Dodge.WorldEvent
 import Dodge.Inventory
-import Dodge.LightSources
+--import Dodge.LightSources
 import Geometry
 import Picture
 
 import Control.Lens
-import Control.Monad
-import Control.Applicative
+--import Control.Monad
+--import Control.Applicative
 import Data.Maybe
-import Data.List
+--import Data.List
 import System.Random
 import qualified Data.IntMap.Strict as IM
-import qualified Data.Map as M
+--import qualified Data.Map as M
 
 crStrafeLeft
     :: Float    -- ^ Speed
@@ -271,7 +271,7 @@ turnBy a n = over (creatures . ix n . crDir) (+ a)
 youDropItem :: World -> World
 youDropItem w = case yourItem w of
     NoItem -> w
-    it -> rmSelectedInvItem (_yourID w) 
+    _ -> rmSelectedInvItem (_yourID w) 
         . copyItemToFloor (you w) (_crInvSel $ you w)
         $ soundOnce putDownSound 
         w
@@ -287,9 +287,9 @@ copyItemToFloor cr i w = case _crInv cr IM.! i of
       where 
         (rot, g) = randomR (-pi,pi) $ _randGen w
         offset = (_crRad cr + 2) *.* unitVectorAtAngle rot
-        updateLocation w = case it ^? itID of
-            Just (Just i)  -> w & itemPositions . ix i .~ OnFloor flid
-            _ -> w
+        updateLocation w' = case it ^? itID of
+            Just (Just i')  -> w' & itemPositions . ix i' .~ OnFloor flid
+            _ -> w'
         flid = newKey $ _floorItems w
         theflit = FlIt 
             {_flIt = it