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!"