Cleanup

src/Dodge/Item/Display.hs

@@ -117,6 +117,8 @@ itemNumberDisplay cr itm = case iu of
     ConsumeUse {} -> []
     AttachUse {} -> [] --[showReloadProgress cr itm]
     AmmoMagUse {} -> [showLoadedAmount itm]
+    ScopeUse OpticScope {_opticZoom = x} -> [show x]
+    ScopeUse {} -> []
         -- this could be cleaner here...
   where
     iu = itm ^?! itUse