Cleanup, only commented out char sequence scrolling code

src/Dodge/Update/Scroll.hs

@@ -6,7 +6,7 @@ import qualified Data.Map.Strict as M
 import Data.Maybe
 import Dodge.Base
 import Dodge.Data.Universe
-import Dodge.HeldScroll
+--import Dodge.HeldScroll
 import Dodge.InputFocus
 import Dodge.Inventory
 import Dodge.SelectionSections
@@ -26,10 +26,13 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
         -- functions that modify the inventory should be centralised so that
         -- this lock can be sensibly applied, perhaps
         | w ^?! cWorld . lWorld . creatures . ix 0 . crInvLock -> w
-        | rbDown -> case  (yourScrollAttachment w, _rbOptions w) of
-            (_,EquipOptions{}) -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
-            (Nothing, _) -> w
-            (Just (invid,hs), _) -> doHeldScroll invid hs y w
+--        | rbDown -> case  (yourScrollAttachment w, _rbOptions w) of
+--            (_,EquipOptions{}) -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
+--            (Nothing, _) -> w
+--            (Just (invid,hs), _) -> doHeldScroll invid hs y w
+        | rbDown -> case   _rbOptions w of
+            EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
+            NoRightButtonOptions -> w
         | lbDown -> w & wCam . camZoom +~ y
         | invKeyDown -> changeSwapSel yi w
         | otherwise -> scrollAugInvSel yi w