type signature

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

View File

@ -100,6 +100,7 @@ update = do
return ()
traceM $ (show $ 1 / dt) ++ " FPS"
handle :: SDL.EventPayload -> Affection UserData ()
handle (SDL.MouseMotionEvent dat) = do
let (SDL.P (SDL.V2 x y)) = SDL.mouseMotionEventPos dat
ud <- getAffection