Tweak pause camera movement

2023-04-25 10:23:43 +01:00
parent a2ad7c23ff
commit 734d74af52
31 changed files with 97 additions and 114 deletions
@@ -57,8 +57,7 @@ handleMouseMotionEvent mmev cfig =
            (0.5 * windowYFloat cfig - fromIntegral y)

 handleMouseWheelEvent :: MouseWheelEventData -> Input -> Input
-handleMouseWheelEvent mwev =
-    (scrollAmount +~ fromIntegral y)
+handleMouseWheelEvent mwev = scrollAmount +~ fromIntegral y
  where
    V2 _ y = mouseWheelEventPos mwev