Complete stritifying points

2021-07-30 01:36:48 +02:00
parent 7b7fd302d8
commit c67feb485f
7 changed files with 18 additions and 18 deletions
@@ -47,10 +47,9 @@ handleEvent' e = case eventPayload e of
    _                           -> Just

 handleMouseMotionEvent :: MouseMotionEventData -> World -> Maybe World
-handleMouseMotionEvent mmev w = Just $ w & mousePos .~ 
-    (fromIntegral x - 0.5*getWindowX w
-    ,0.5*getWindowY w - fromIntegral y
-    )
+handleMouseMotionEvent mmev w = Just $ w & mousePos .~ V2
+    (fromIntegral x - 0.5*getWindowX w)
+    (0.5*getWindowY w - fromIntegral y)
  where 
    P (V2 x y) = mouseMotionEventPos mmev