Cleanup

src/Dodge/Item/Equipment.hs

@@ -65,10 +65,10 @@ frontArmour = defaultEquipment
     , _itEffect = NoItEffect
     , _itID = Nothing
     }
-pictureOnEquip :: SPic -> Creature -> Int -> SPic
-pictureOnEquip sp cr i 
-    | isJust (cr ^? crInvEquipped . ix i) = sp
-    | otherwise = mempty
+pictureOnEquip :: SPic -> Creature -> Item -> SPic
+pictureOnEquip sp cr itm = case _itInvPos itm of
+    Just i | isJust (cr ^? crInvEquipped . ix i) -> sp
+    _ -> mempty
 
 flatShield :: Item
 flatShield = defaultEquipment