Cleanup

2024-11-29 10:06:59 +00:00
parent 8d6b44e9f4
commit a9edab0e31
3 changed files with 5 additions and 14 deletions
@@ -62,7 +62,8 @@ showAttachItem :: AttachType -> Item -> String
 showAttachItem t itm = case t of
    ZOOMSCOPE -> "ZOOMSCOPE"
    BULLETSYNTH -> "BSYNTH"
-    REMOTESCREEN -> "REMOTE SCREEN " ++ show (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
+    REMOTESCREEN -> "REMOTE SCREEN " ++ maybe mempty show 
+        (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
    HOMINGMODULE -> "HOMING MOD"
    AUGMENTEDHUD -> "AUGMENTED HUD"