From a5273ff79b3059cdc91bd6e97b1695cb2bdeb0fc Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 18 Mar 2017 14:12:42 +0100 Subject: [PATCH] type signature --- examples/example02.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/examples/example02.hs b/examples/example02.hs index 31df9ee..5ae1aaa 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -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