Cleanup

src/Dodge/Item/Draw.hs

@@ -22,12 +22,12 @@ itemEquipPict cr itmtree = case itm ^. itUse of
     ituse -> fold $ do
         attachpos <- ituse ^? uequipEffect . eeAttachPos
         i <- itm ^? itLocation . ilInvID
-        epos <- cr ^? crInv . ix i . itLocation . ilEquipPosition . _Just
+        epos <- cr ^? crInv . ix i . itLocation . ilEquipSite . _Just
         return $ equipPosition epos cr attachpos (itemSPic itm)
   where
     itm = itmtree ^. ldtValue . _1
 
-equipPosition :: EquipPosition -> Creature -> Point3 -> SPic -> SPic
+equipPosition :: EquipSite -> Creature -> Point3 -> SPic -> SPic
 equipPosition epos cr p sh = case epos of
     OnLeftWrist -> translateToLeftWrist cr sh
     OnRightWrist -> translateToRightWrist cr sh