Cleanup

src/Dodge/Creature/Action.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE TupleSections #-}
+--{-# LANGUAGE TupleSections #-}
 {- | Actions performed by creatures within the world
  -}
 module Dodge.Creature.Action 
@@ -241,7 +241,7 @@ youDropItem w = case yourItem w ^? _Just . itCurseStatus of
     cr = you w
 {- | Copy an inventory item to the floor. -}
 copyInvItemToFloor :: Creature -> Int -> World -> World
-copyInvItemToFloor cr i w = copyItemToFloor (_crPos cr) (_crInv cr IM.! i) w
+copyInvItemToFloor cr i = copyItemToFloor (_crPos cr) (_crInv cr IM.! i)
 
 {- | Pick up a specific item. -}
 pickUpItem :: Int -> FloorItem -> World -> World