Work on mouse wheel scrolling

src/Dodge/Event.hs

@@ -15,7 +15,7 @@ module Dodge.Event (
     handleEvent,
 ) where
 
-import Control.Lens
+import LensHelp
 import qualified Data.Map.Strict as M
 import Data.Maybe
 import qualified Data.Set as S
@@ -93,8 +93,14 @@ handleMouseWheelEvent :: MouseWheelEventData -> Universe -> Maybe Universe
 handleMouseWheelEvent mwev w = case _uvScreenLayers w of
     [] -> case mouseWheelEventPos mwev of
         V2 _ y -> Just $ w & uvWorld %~ wheelEvent (fromIntegral y)
+            & uvWorld . scrollAmount +~ fromIntegral y
     _ -> Just w
 
+--wheelEvent' :: Int -> World -> World
+--wheelEvent' y w = case w ^. timeFlow of
+--    ScrollTimeFlow -> wheelTimeEvent y w
+--    _ -> wheelEvent y w
+
 wheelEvent :: Float -> World -> World
 wheelEvent y w = case _hudElement $ _hud (_cWorld w) of
     DisplayCarte