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

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

                 => objectT
                 -> IO [flagsT]
mkObjectGetFlags object =
    liftM cToFlags $
        withObject (toObject object) cObjectGetFlags
foreign import ccall unsafe "_hs_gst_object_flags"
    cObjectGetFlags :: Ptr Object
