diff --git a/Graphics/UI/SDL/Event.hs b/Graphics/UI/SDL/Event.hs
--- a/Graphics/UI/SDL/Event.hs
+++ b/Graphics/UI/SDL/Event.hs
@@ -126,7 +126,7 @@
 foreign import ccall "SDL.h SDL_FlushEvents" flushEvents :: Word32 -> Word32 -> IO ()
 foreign import ccall "SDL.h SDL_GetEventFilter" getEventFilter :: Ptr EventFilter -> Ptr (Ptr ()) -> IO Bool
 foreign import ccall "SDL.h SDL_GetNumTouchDevices" getNumTouchDevices :: IO CInt
-foreign import ccall "SDL.h SDL_GetNumTouchFingers" getNumTouchFingers :: TouchID -> CInt
+foreign import ccall "SDL.h SDL_GetNumTouchFingers" getNumTouchFingers :: TouchID -> IO CInt
 foreign import ccall "SDL.h SDL_GetTouchDevice" getTouchDevice :: CInt -> IO TouchID
 foreign import ccall "SDL.h SDL_GetTouchFinger" getTouchFinger :: TouchID -> CInt -> IO (Ptr Finger)
 foreign import ccall "SDL.h SDL_HasEvent" hasEvent :: Word32 -> IO Bool
diff --git a/sdl2.cabal b/sdl2.cabal
--- a/sdl2.cabal
+++ b/sdl2.cabal
@@ -1,5 +1,5 @@
 name:                sdl2
-version:             1.0.1
+version:             1.0.2
 synopsis:            Bindings to SDL2
 description:         Bindings to the SDL2 library, version 2.0.1.
 license:             BSD3