Continue item use refactor

2024-12-31 11:25:56 +00:00
parent 6aa3c701bc
commit 9e2dc995e9
5 changed files with 15 additions and 6 deletions
@@ -166,7 +166,7 @@ rotateCamera :: Configuration -> World -> World
 rotateCamera cfig w 
    | Just ltime <- pkeys ^? ix SDL.ButtonLeft
    , Just rtime <- pkeys ^? ix SDL.ButtonRight
-    , rtime > ltime = w & wCam . camRot -~ rotation
+    , ltime > rtime = w & wCam . camRot -~ rotation
    | otherwise = ifConfigWallRotate cfig (w ^. input . mouseButtons) w
  where
    pkeys = w ^. input . mouseButtons