little fixes

This commit is contained in:
nek0 2017-03-16 23:26:23 +01:00
parent 7c51fbf3ac
commit ba454d341d

View file

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