diff --git a/Graphics/UI/SDL/Types.hsc b/Graphics/UI/SDL/Types.hsc
--- a/Graphics/UI/SDL/Types.hsc
+++ b/Graphics/UI/SDL/Types.hsc
@@ -399,6 +399,14 @@
            , eventTimestamp :: Word32
            , dropEventFile :: CString
            }
+           | ClipboardUpdateEvent {
+             eventType :: Word32
+           , eventTimestamp :: Word32
+           }
+           | UnknownEvent {
+             eventType :: Word32
+           , eventTimestamp :: Word32
+           }
            deriving (Eq, Show)
 
 instance Storable Event where
@@ -491,6 +499,8 @@
 				y <- (#peek SDL_Event, mgesture.y) ptr
 				numFingers <- (#peek SDL_Event, mgesture.numFingers) ptr
 				return $! MultiGestureEvent typ timestamp touchId dTheta dDist x y numFingers
+			(#const SDL_CLIPBOARDUPDATE) ->
+				return $! ClipboardUpdateEvent typ timestamp
 			(#const SDL_DROPFILE) -> do
 				file <- (#peek SDL_Event, drop.file) ptr
 				return $! DropEvent typ timestamp file
@@ -500,7 +510,7 @@
 				data1 <- (#peek SDL_Event, user.data1) ptr
 				data2 <- (#peek SDL_Event, user.data2) ptr
 				return $! UserEvent typ timestamp wid code data1 data2
-			_ -> error $ "Unknown type " ++ show typ ++ " for SDL_Event"
+			_ -> return $! UnknownEvent typ timestamp
 		where
 		key f = do
 			wid <- (#peek SDL_Event, key.windowID) ptr
@@ -698,10 +708,16 @@
 			(#poke SDL_Event, dgesture.error) ptr err
 			(#poke SDL_Event, dgesture.x) ptr x
 			(#poke SDL_Event, dgesture.y) ptr y
+		ClipboardUpdateEvent typ timestamp -> do
+			(#poke SDL_Event, common.type) ptr typ
+			(#poke SDL_Event, common.timestamp) ptr timestamp
 		DropEvent typ timestamp file -> do
 			(#poke SDL_Event, common.type) ptr typ
 			(#poke SDL_Event, common.timestamp) ptr timestamp
 			(#poke SDL_Event, drop.file) ptr file
+		UnknownEvent typ timestamp -> do
+			(#poke SDL_Event, common.type) ptr typ
+			(#poke SDL_Event, common.timestamp) ptr timestamp
 
 data Finger = Finger {
               fingerID :: FingerID
diff --git a/sdl2.cabal b/sdl2.cabal
--- a/sdl2.cabal
+++ b/sdl2.cabal
@@ -1,5 +1,5 @@
 name:                sdl2
-version:             1.1.1
+version:             1.1.2
 synopsis:            Low-level bindings to SDL2
 description:         Low-level bindings to the SDL2 library, version 2.0.3.
 license:             BSD3
@@ -14,6 +14,15 @@
 extra-source-files:
   cbits/sdlhelper.c,
   include/sdlhelper.h
+
+source-repository head
+  type:     git
+  location: git://github.com/polarina/sdl2.git
+
+source-repository this
+  type:     git
+  location: git://github.com/polarina/sdl2.git
+  tag:      v1.1.2
 
 library
   ghc-options: -Wall