nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

little fixes

Browse source
This commit is contained in:
nek0 2017-03-16 23:26:23 +01:00
parent 7c51fbf3ac
commit ba454d341d
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
examples/example02.hs
View file

@ -98,7 +98,7 @@ update = do
let dt = tick - lastTick ud let dt = tick - lastTick ud
return () return ()
-- traceM $ (show $ 1 / dt) ++ " FPS" traceM $ (show $ 1 / dt) ++ " FPS"
handle (SDL.MouseMotionEvent dat) = do handle (SDL.MouseMotionEvent dat) = do
let (SDL.P (SDL.V2 x y)) = SDL.mouseMotionEventPos dat 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 "x" $ G.PropertyDouble $ fromIntegral (x - 10)
, G.Property "y" $ G.PropertyDouble $ fromIntegral (y - 10) , G.Property "y" $ G.PropertyDouble $ fromIntegral (y - 10)
] ]
liftIO $ traceIO $ show x ++ " " ++ show y
handle (SDL.WindowClosedEvent _) = do handle (SDL.WindowClosedEvent _) = do
traceM "seeya!" traceM "seeya!"