Commit before attempting to move some data into a "local" world type

2021-11-28 01:32:42 +00:00
parent 3e64e33232
commit 24480bbe52
10 changed files with 47 additions and 21 deletions
@@ -18,12 +18,11 @@ updateUsingInput w = if _carteDisplay w

 updatePressedButtons :: S.Set MouseButton -> World -> World
 updatePressedButtons pkeys w 
-    | lbPressed && rbPressed
-                = useItem (_yourID w) w
+    | lbPressed && rbPressed = useItem (_yourID w) w
    | lbPressed = useLeftItem (_yourID w) w
    | lbPressed = w
    | mbPressed = w & clickMousePos .~ _mousePos w 
-                    & cameraRot     -~ rotation
+        & cameraRot -~ rotation
    | otherwise = w
  where 
    lbPressed = ButtonLeft `S.member` pkeys