-- Main.hs module Main where import qualified System.Glib.MainLoop as G import qualified Media.Streaming.GStreamer.Core as Gst maybeFail :: String -> Maybe a -> IO a maybeFail message = maybe (fail message) return busCall loop bus message …