Non-exhaustive pattern in function toEnum (Constants.hsc)

[noughtmare]

I've built a haskell implementation of the Hello World example on http://docs.gstreamer.com/pages/viewpage.action?pageId=327735.
When I play videos like http://www.sample-videos.com/video/mp4/720/big_buck_bunny_720p_50mb.mp4 I get this error:
Media/Streaming/GStreamer/Core/Constants.hsc:(337,5)-(360,53): Non-exhaustive patterns in function toEnum.

Edit:
I took a closer look at the Int that was passed to the toEnum function and it turns out to be the number 16777216, I think this is the GST_MESSAGE_QOS.
Can this be fixed by adding the any message to the toEnum function?