module GI.Gio.Interfaces.SocketConnectable
(
SocketConnectable(..) ,
noSocketConnectable ,
SocketConnectableK ,
toSocketConnectable ,
socketConnectableEnumerate ,
socketConnectableProxyEnumerate ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype SocketConnectable = SocketConnectable (ForeignPtr SocketConnectable)
noSocketConnectable :: Maybe SocketConnectable
noSocketConnectable = Nothing
type instance AttributeList SocketConnectable = SocketConnectableAttributeList
type SocketConnectableAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList SocketConnectable = SocketConnectableSignalList
type SocketConnectableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_socket_connectable_get_type"
c_g_socket_connectable_get_type :: IO GType
type instance ParentTypes SocketConnectable = SocketConnectableParentTypes
type SocketConnectableParentTypes = '[GObject.Object]
instance GObject SocketConnectable where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_socket_connectable_get_type
class GObject o => SocketConnectableK o
instance (GObject o, IsDescendantOf SocketConnectable o) => SocketConnectableK o
toSocketConnectable :: SocketConnectableK o => o -> IO SocketConnectable
toSocketConnectable = unsafeCastTo SocketConnectable
foreign import ccall "g_socket_connectable_enumerate" g_socket_connectable_enumerate ::
Ptr SocketConnectable ->
IO (Ptr SocketAddressEnumerator)
socketConnectableEnumerate ::
(MonadIO m, SocketConnectableK a) =>
a ->
m SocketAddressEnumerator
socketConnectableEnumerate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_socket_connectable_enumerate _obj'
checkUnexpectedReturnNULL "g_socket_connectable_enumerate" result
result' <- (wrapObject SocketAddressEnumerator) result
touchManagedPtr _obj
return result'
foreign import ccall "g_socket_connectable_proxy_enumerate" g_socket_connectable_proxy_enumerate ::
Ptr SocketConnectable ->
IO (Ptr SocketAddressEnumerator)
socketConnectableProxyEnumerate ::
(MonadIO m, SocketConnectableK a) =>
a ->
m SocketAddressEnumerator
socketConnectableProxyEnumerate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_socket_connectable_proxy_enumerate _obj'
checkUnexpectedReturnNULL "g_socket_connectable_proxy_enumerate" result
result' <- (wrapObject SocketAddressEnumerator) result
touchManagedPtr _obj
return result'