Allow for scrolling in combine regex

src/Dodge/Update.hs

@@ -143,10 +143,16 @@ updateUseInput u = case u ^? uvScreenLayers . _head of
         optionScreenUpdate screen mop flag ldps sellist u
     _ -> case u ^? uvWorld . hud . hudElement . subInventory of
         Just (DisplayTerminal tmid) | inTermFocus (_uvWorld u) -> updateKeysInTerminal tmid u
-        Just (CombineInventory SelectionIntMap {_smRegex=smr})
-            | smr ^? smrInput == Just True -> doSubInvRegexInput u
+        Just (CombineInventory sm)
+            | inregex sm -> doSubInvRegexInput u
         _ -> M.foldlWithKey' updateKeyInGame u pkeys
   where
+    inregex sm = fromMaybe False $ do
+        i <- sm ^? smSelPos . _Just
+        si <- sm ^? smShownItems . ix i
+        case si of
+            SelectionRegex {} -> return True
+            _ -> return False
     pkeys = u ^. uvWorld . input . pressedKeys
 
 optionScreenUpdate ::