Partially refactor ammo extraction, work on pulse rifle

src/Dodge/Item/Display.hs

@@ -89,7 +89,7 @@ showInventoryPathing = \case
     RELITEM -> "HERE"
 
 showAttachItem :: AttachType -> String
-showAttachItem t = case t of
+showAttachItem = \case
     UNDERBARRELSLOT -> "UNDERBARRELSLOT"
     ZOOMSCOPE -> "ZOOMSCOPE"
     BULLETSYNTH -> "BSYNTH"
@@ -101,6 +101,7 @@ showAttachItem t = case t of
     SHELLPAYLOAD x -> show x
     GIMBAL -> "GIMBAL"
     GYROSCOPE -> "GYROSCOPE"
+    CAPACITOR -> "CAPACITOR"
 
 showEquipItem :: EquipItemType -> String
 showEquipItem eit = case eit of