Skip to content

Added support for gstreamer 0.10.35 message types and better error message #6

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Added support for gstreamer 0.10.35 message types and better error message #6

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 19 additions & 0 deletions Media/Streaming/GStreamer/Core/Constants.hsc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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}
Expand All @@ -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.
Expand Down