diff --git a/Media/Streaming/GStreamer/Core/Constants.hsc b/Media/Streaming/GStreamer/Core/Constants.hsc
index 90dd9bf8..97ca76fc 100644
--- a/Media/Streaming/GStreamer/Core/Constants.hsc
+++ b/Media/Streaming/GStreamer/Core/Constants.hsc
@@ -331,6 +331,12 @@ data MessageType = MessageEOS             -- ^ end-of-stream
 #if GST_CHECK_VERSION(0, 10, 13)
                  | MessageAsyncStart      -- ^ an element has started an async state change; used internally
                  | MessageAsyncDone       -- ^ an element has completed an async state change; used internally
+#endif
+#if GST_CHECK_VERSION(0, 10, 35)
+                 | MessageRequestState
+                 | MessageStepStart
+                 | MessageQoS
+                 | MessageProgress
 #endif
                    deriving (Eq, Bounded, Show)
 instance Enum MessageType where
@@ -358,6 +364,13 @@ instance Enum MessageType where
 #if GST_CHECK_VERSION(0, 10, 13)
              | n == #{const GST_MESSAGE_ASYNC_START}       = MessageAsyncStart
              | n == #{const GST_MESSAGE_ASYNC_DONE}        = MessageAsyncDone
+#endif
+#if GST_CHECK_VERSION(0, 10, 35)
+             | n == #{const GST_MESSAGE_REQUEST_STATE}    = MessageRequestState
+             | n == #{const GST_MESSAGE_STEP_START}       = MessageStepStart
+             | n == #{const GST_MESSAGE_QOS}              = MessageQoS
+             | n == #{const GST_MESSAGE_PROGRESS}         = MessageProgress
+             | otherwise = error $ "Unknown message: " ++ show n
 #endif
     fromEnum MessageEOS             = #{const GST_MESSAGE_EOS}
     fromEnum MessageError           = #{const GST_MESSAGE_ERROR}
@@ -384,6 +397,12 @@ instance Enum MessageType where
     fromEnum MessageAsyncStart      = #{const GST_MESSAGE_ASYNC_START}
     fromEnum MessageAsyncDone       = #{const GST_MESSAGE_ASYNC_DONE}
 #endif
+#if GST_CHECK_VERSION(0, 10, 35)
+    fromEnum MessageRequestState    = #{const GST_MESSAGE_REQUEST_STATE}
+    fromEnum MessageStepStart       = #{const GST_MESSAGE_STEP_START}
+    fromEnum MessageQoS             = #{const GST_MESSAGE_QOS}
+    fromEnum MessageProgress        = #{const GST_MESSAGE_PROGRESS}
+#endif
 instance Flags MessageType
 
 -- | The flags that a 'Caps' may have.