Draw cursor when targeting with HUD

src/Dodge/Item/Draw.hs

@@ -16,16 +16,16 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture
 
-itemEquipPict :: Creature -> LabelDoubleTree ComposeLinkType ComposedItem
+itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem
     -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
     UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
-        -> overPosSP (heldItemOffset itm cr) (itemSPic itmtree)
+        -> overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
     ituse -> fromMaybe mempty $ do
         attachpos <- ituse ^? equipEffect . eeAttachPos
         i <- itm ^? itLocation . ilInvID
         epos <- cr ^? crInvEquipped . ix i
-        return $ equipPosition epos cr attachpos (itemSPic itmtree)
+        return $ equipPosition epos cr attachpos (itemSPic itm)
   where
     itm = itmtree ^. ldtValue . _1