Cleanup

2024-09-30 14:21:19 +01:00
parent 06cca549d9
commit 53e959e6cc
16 changed files with 129 additions and 263 deletions
@@ -18,7 +18,7 @@ import ShapePicture

 itemEquipPict :: Creature -> LabelDoubleTree ComposeLinkType PartiallyComposedItem -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
-    HeldUse{} | itm ^? itLocation . ilIsRoot == Just True 
+    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
        -> overPosSP (heldItemOffset itm cr) (itemSPic itmtree)
    ituse -> fromMaybe mempty $ do
        attachpos <- ituse ^? equipEffect . eeAttachPos