type signature

This commit is contained in:
nek0 2017-03-18 14:12:42 +01:00
parent ec4c0fccc8
commit a5273ff79b

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