From ba454d341d3d13bcd6d515f3a02909a9927df736 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 16 Mar 2017 23:26:23 +0100 Subject: [PATCH] little fixes --- examples/example02.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/examples/example02.hs b/examples/example02.hs index 15c76e2..c04b50a 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -98,7 +98,7 @@ update = do let dt = tick - lastTick ud return () - -- traceM $ (show $ 1 / dt) ++ " FPS" + traceM $ (show $ 1 / dt) ++ " FPS" handle (SDL.MouseMotionEvent dat) = do let (SDL.P (SDL.V2 x y)) = SDL.mouseMotionEventPos dat @@ -107,7 +107,6 @@ handle (SDL.MouseMotionEvent dat) = do [ G.Property "x" $ G.PropertyDouble $ fromIntegral (x - 10) , G.Property "y" $ G.PropertyDouble $ fromIntegral (y - 10) ] - liftIO $ traceIO $ show x ++ " " ++ show y handle (SDL.WindowClosedEvent _) = do traceM "seeya!"