Improve map

2021-03-26 15:17:47 +01:00
parent 07d84cc1c6
commit 9f6d1442b3
2 changed files with 33 additions and 13 deletions
@@ -60,9 +60,9 @@ handleResizeEvent sev = Just . set windowX (fromIntegral x)

 handlePressedMouseButton :: MouseButton -> World -> Maybe World
 handlePressedMouseButton but w 
-    | (but == ButtonRight && _carteDisplay w) || (but == ButtonMiddle && not (_carteDisplay w))
-        = Just $ w & clickMousePos .~ _mousePos w
-handlePressedMouseButton _ w = Just w
+    | but == ButtonMiddle || _carteDisplay w 
+                = Just $ w & clickMousePos .~ _mousePos w
+    | otherwise = Just w

 wheelUpEvent :: World -> World
 wheelUpEvent w = case _carteDisplay w of