            return $ Segment (realToFrac rate)
                             (realToFrac absRate)
                             (cToEnum format)
-                            (toFlags $ fromIntegral flags)
+                            (cToFlags flags)
                             (fromIntegral start)
                             (fromIntegral stop)
                             (fromIntegral time)

                     => miniObjectT
                     -> [flagsT]
mkMiniObjectGetFlags miniObject =
    toFlags $ fromIntegral $ unsafePerformIO $
        withMiniObject (toMiniObject miniObject) cMiniObjectGetFlags
foreign import ccall unsafe "_hs_gst_mini_object_flags"
    cMiniObjectGetFlags :: Ptr MiniObject


import Control.Monad       ( liftM )
import Control.Monad.Trans
import Data.Ratio          ( Ratio )
import System.Glib.FFI
import System.Glib.Flags
