Allow use of items while examine subinventory shows

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

src/Dodge/Creature/Impulse/UseItem.hs

@@ -44,7 +44,7 @@ useItemLoc cr loc pt w
     | RemoteDetonatorSF <- sf
       , pt == InitialPress =
         return $ activateDetonator ldt w
-    | ITEMSCANNER <- itm ^. itType
+    | ITEMSCAN <- itm ^. itType
       , pt == InitialPress =
         return $ toggleExamineInv w
     | Just b <- itm ^? itUse . useToggle
@@ -126,7 +126,5 @@ toggleEquipmentAt invid cr w = case getEquipmentAllocation invid w of
 
 toggleExamineInv :: World -> World
 toggleExamineInv w = case w ^? hud . hudElement . subInventory of
-    Just ExamineInventory{} -> w & thepointer .~ NoSubInventory
-    _ -> w & thepointer .~ ExamineInventory
-  where
-    thepointer = hud . hudElement . subInventory
+    Just ExamineInventory{} -> w & hud . hudElement . subInventory .~ NoSubInventory
+    _ -> w & hud . hudElement . subInventory .~ ExamineInventory