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

type signature

Browse source
This commit is contained in:
nek0 2017-03-18 14:12:42 +01:00
parent ec4c0fccc8
commit a5273ff79b
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
examples/example02.hs
View file

@ -100,6 +100,7 @@ update = do
return () return ()
traceM $ (show $ 1 / dt) ++ " FPS" traceM $ (show $ 1 / dt) ++ " FPS"
handle :: SDL.EventPayload -> Affection UserData ()
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
ud <- getAffection ud <- getAffection