Cleanup, fix bug in floating camera zoom

2024-12-23 16:59:55 +00:00
parent 90ec2a3738
commit 02b2f9831f
2 changed files with 5 additions and 6 deletions
@@ -64,7 +64,7 @@ translateFloatingCameraKeys theinput = (camCenter -~ thetran) . (camViewFrom -~
 zoomFloatingCamera :: Input -> Camera -> Camera
 zoomFloatingCamera theinput
    | ButtonRight `M.member` (theinput ^. mouseButtons) =
-        camZoom *~ (39/40 ^^ negate (getSmoothScrollValue theinput))
+        camZoom *~ ((39/40) ^^ negate (getSmoothScrollValue theinput))
    | otherwise = id
 -- the 39/40 is taken from zoomSpeed