Allow use of items while examine subinventory shows

Still not sure what to do with right click scrolling, item swapping

src/Dodge/Item/Display.hs

@@ -66,8 +66,9 @@ itemBaseName = \case
     BULLETMOD (BulletModPayload btt) -> show btt
     BULLETMOD (BulletModEffect btt) -> show btt
     STICKYMOD -> "STICKYMOD" 
-    ITEMSCANNER -> "ITEMSCANNER"
+    ITEMSCAN -> "ITEMSCAN"
     INTROSCAN t -> show t
+    MAPPER -> "MAPPER"
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of
@@ -95,7 +96,7 @@ showEquipItem eit = case eit of
 itemNumberDisplay :: World -> Creature -> ComposedItem -> [String]
 itemNumberDisplay w cr ci
     | Just x <- ci ^? _1 . itUse . useToggle = [show x]
-    | ITEMSCANNER <- ci ^. _1 . itType
+    | ITEMSCAN <- ci ^. _1 . itType
     , Just ExamineInventory <- w ^? hud . hudElement . subInventory
         = ["ACTIVE"]
     | EQUIP WRIST_ECG <- ci ^. _1 . itType =