Work on AttachUse -> UseAttach

src/Dodge/Item/Display.hs

@@ -78,7 +78,7 @@ showAttachItem t itm = case t of
     ZOOMSCOPE -> "ZOOMSCOPE"
 --    TARGETATTACH x -> show x
     BULLETSYNTHESIZER -> "BSYNTH"
-    REMOTESCREEN -> "REMOTE SCREEN " ++ show (itm ^? itUse . atLinkedProjectile . _Just)
+    REMOTESCREEN -> "REMOTE SCREEN " ++ show (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
     HOMINGMODULE -> "HOMING MOD"
     AUGMENTEDHUD -> "AUGMENTED HUD"
 
@@ -115,7 +115,7 @@ itemNumberDisplay cr itm = case iu of
     EquipUse{} -> showEquipmentNumber cr itm
     CraftUse -> []
     UseConsume {} -> []
-    AttachUse {} -> []
+    UseAttach {} -> []
     UseAmmoMag {} -> [maybe "" shortShow $ itm ^? itUse . amagLoadStatus . iaLoaded]
     ScopeUse OpticScope {_opticZoom = x} -> [shortShow x]
     ScopeUse {} -> []