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