Cleanup, only commented out char sequence scrolling code

src/Dodge/HeldScroll.hs

@@ -1,6 +1,6 @@
 module Dodge.HeldScroll (
-    doHeldScroll,
-    canHeldScrollAttach,
+--    doHeldScroll,
+--    canHeldScrollAttach,
 ) where
 
 --import LensHelp hiding ((<|), (|>))
@@ -9,13 +9,13 @@ module Dodge.HeldScroll (
 --import Geometry
 --import Control.Lens hiding ((<|), (|>))
 --import Data.Sequence
-import Dodge.Data.World
+--import Dodge.Data.World
 --import SDL (MouseButton (..))
 --import qualified Data.Map.Strict as M
 
 -- note that scope zooming is controlled by updateScopeZoom
-doHeldScroll :: Int -> ScrollAttachParams -> Float -> World -> World
-doHeldScroll _ _ _ = id
+--doHeldScroll :: Int -> ScrollAttachParams -> Float -> World -> World
+--doHeldScroll _ _ _ = id
 --doHeldScroll invid hs x w  =  case hs of
 --    ZoomScrollParams{}
 --        | SDL.ButtonRight `M.member` _mouseButtons (_input w) -> w &
@@ -72,5 +72,5 @@ doHeldScroll _ _ _ = id
 --cycleR (xs :|> x) = x <| xs
 --cycleR xs = xs
 --
-canHeldScrollAttach :: Item -> ScrollAttachParams -> Bool
-canHeldScrollAttach _ _ = True
+--canHeldScrollAttach :: Item -> ScrollAttachParams -> Bool
+--canHeldScrollAttach _ _ = True