-- GENERATED by C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell)-- Edit the ORIGNAL .chs file instead!{-# LINE 1 "./Media/Streaming/GStreamer/Controller/Controller.chs" #-}-- GIMP Toolkit (GTK) Binding for Haskell: binding to gstreamer -*-haskell-*----- Author : Peter Gavin-- Created: 1-Apr-2007---- Copyright (c) 2007 Peter Gavin---- This library is free software: you can redistribute it and/or-- modify it under the terms of the GNU Lesser General Public License-- as published by the Free Software Foundation, either version 3 of-- the License, or (at your option) any later version.-- -- This library is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU-- Lesser General Public License for more details.-- -- You should have received a copy of the GNU Lesser General Public-- License along with this program. If not, see-- <http://www.gnu.org/licenses/>.-- -- GStreamer, the C library which this Haskell library depends on, is-- available under LGPL Version 2. The documentation included with-- this library is based on the original GStreamer documentation.-- -- | Maintainer : gtk2hs-devel@lists.sourceforge.net-- Stability : alpha-- Portability : portable (depends on GHC)moduleMedia.Streaming.GStreamer.Controller.Controller(Controller,ControllerClass,)whereimportControl.Monad(liftM)importMedia.Streaming.GStreamer.Controller.Types{-# LINE 37 "./Media/Streaming/GStreamer/Controller/Controller.chs" #-}importSystem.Glib.GList{-# LINE 38 "./Media/Streaming/GStreamer/Controller/Controller.chs" #-}importSystem.Glib.GObject{-# LINE 39 "./Media/Streaming/GStreamer/Controller/Controller.chs" #-}importSystem.Glib.FFIimportSystem.Glib.UTFString{-# LINE 43 "./Media/Streaming/GStreamer/Controller/Controller.chs" #-}controllerInit::IOBoolcontrollerInit=liftMtoBool$gst_controller_initnullPtrnullPtrcontrollerNew::GObjectClassgObjectT=>gObjectT->[String]->IOControllercontrollerNewobjectproperties=withManywithUTFStringproperties$\cProperties->docPropertiesGList<-toGListcPropertiescController<-(\(GObjectarg1)arg2->withForeignPtrarg1$\argPtr1->gst_controller_new_listargPtr1arg2)(toGObjectobject)cPropertiesGListg_list_freecPropertiesGListconstructNewGObjectmkController$returncControllercontrollerRemoveProperties::ControllerClasscontrollerT=>controllerT->[String]->IOBoolcontrollerRemovePropertiescontrollerproperties=withManywithUTFStringproperties$\cProperties->docPropertiesGList<-toGListcPropertiessuccess<-(\(Controllerarg1)arg2->withForeignPtrarg1$\argPtr1->gst_controller_remove_properties_listargPtr1arg2)(toControllercontroller)cPropertiesGListg_list_freecPropertiesGListreturn$toBoolsuccessforeignimportccallsafe"gst_controller_init"gst_controller_init::((PtrCInt)->((Ptr(Ptr(PtrCChar)))->(IOCInt)))foreignimportccallsafe"gst_controller_new_list"gst_controller_new_list::((PtrGObject)->((Ptr())->(IO(PtrController))))foreignimportccallsafe"g_list_free"g_list_free::((Ptr())->(IO()))foreignimportccallsafe"gst_controller_remove_properties_list"gst_controller_remove_properties_list::((PtrController)->((Ptr())->(IOCInt)))