Allow for scrolling in combine regex

src/Dodge/Update/UsingInput.hs

@@ -30,11 +30,8 @@ updateUsingInput w = case w ^. hud . hudElement of
 pressedMBEffects :: SubInventory -> M.Map MouseButton Bool -> World -> World
 pressedMBEffects subinv pkeys w = case subinv of
     NoSubInventory -> pressedMBEffectsNoInventory pkeys w
-    CombineInventory SelectionIntMap{_smSelPos = mi, _smRegex = smr}
-        | lbinitialpress && regexnotinput smr -> maybeexitcombine (maybe id doCombine mi w)
-    CombineInventory SelectionIntMap{}
-        | lbinitialpress -> w & hud . hudElement . subInventory . subInvMap . smRegex. smrInput 
-            %~ const False
+    CombineInventory SelectionIntMap{_smSelPos = mi}
+        | lbinitialpress -> maybeexitcombine (maybe id doCombine mi w)
     DisplayTerminal tmid
         | lbinitialpress && inTermFocus w ->
             doTerminalEffectLB (w ^?! cWorld . lWorld . terminals . ix tmid) w
@@ -42,7 +39,6 @@ pressedMBEffects subinv pkeys w = case subinv of
             w & cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus %~ const True
     _ -> w
   where
-    regexnotinput smr = not $ smr ^? smrInput == Just True
     lbinitialpress = pkeys ^? ix ButtonLeft == Just False
     maybeexitcombine w'
         | ButtonRight `M.member` _mouseButtons (_input w) =