{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.RemoteCallbacks
(
RemoteCallbacks(..) ,
IsRemoteCallbacks ,
toRemoteCallbacks ,
#if defined(ENABLE_OVERLOADING)
ResolveRemoteCallbacksMethod ,
#endif
C_RemoteCallbacksCompletionCallback ,
RemoteCallbacksCompletionCallback ,
#if defined(ENABLE_OVERLOADING)
RemoteCallbacksCompletionSignalInfo ,
#endif
afterRemoteCallbacksCompletion ,
genClosure_RemoteCallbacksCompletion ,
mk_RemoteCallbacksCompletionCallback ,
noRemoteCallbacksCompletionCallback ,
onRemoteCallbacksCompletion ,
wrap_RemoteCallbacksCompletionCallback ,
C_RemoteCallbacksProgressCallback ,
RemoteCallbacksProgressCallback ,
#if defined(ENABLE_OVERLOADING)
RemoteCallbacksProgressSignalInfo ,
#endif
afterRemoteCallbacksProgress ,
genClosure_RemoteCallbacksProgress ,
mk_RemoteCallbacksProgressCallback ,
noRemoteCallbacksProgressCallback ,
onRemoteCallbacksProgress ,
wrap_RemoteCallbacksProgressCallback ,
C_RemoteCallbacksTransferProgressCallback,
RemoteCallbacksTransferProgressCallback ,
#if defined(ENABLE_OVERLOADING)
RemoteCallbacksTransferProgressSignalInfo,
#endif
afterRemoteCallbacksTransferProgress ,
genClosure_RemoteCallbacksTransferProgress,
mk_RemoteCallbacksTransferProgressCallback,
noRemoteCallbacksTransferProgressCallback,
onRemoteCallbacksTransferProgress ,
wrap_RemoteCallbacksTransferProgressCallback,
C_RemoteCallbacksUpdateTipsCallback ,
RemoteCallbacksUpdateTipsCallback ,
#if defined(ENABLE_OVERLOADING)
RemoteCallbacksUpdateTipsSignalInfo ,
#endif
afterRemoteCallbacksUpdateTips ,
genClosure_RemoteCallbacksUpdateTips ,
mk_RemoteCallbacksUpdateTipsCallback ,
noRemoteCallbacksUpdateTipsCallback ,
onRemoteCallbacksUpdateTips ,
wrap_RemoteCallbacksUpdateTipsCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Enums as Ggit.Enums
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import {-# SOURCE #-} qualified GI.Ggit.Structs.TransferProgress as Ggit.TransferProgress
newtype RemoteCallbacks = RemoteCallbacks (SP.ManagedPtr RemoteCallbacks)
deriving (RemoteCallbacks -> RemoteCallbacks -> Bool
(RemoteCallbacks -> RemoteCallbacks -> Bool)
-> (RemoteCallbacks -> RemoteCallbacks -> Bool)
-> Eq RemoteCallbacks
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoteCallbacks -> RemoteCallbacks -> Bool
$c/= :: RemoteCallbacks -> RemoteCallbacks -> Bool
== :: RemoteCallbacks -> RemoteCallbacks -> Bool
$c== :: RemoteCallbacks -> RemoteCallbacks -> Bool
Eq)
instance SP.ManagedPtrNewtype RemoteCallbacks where
toManagedPtr :: RemoteCallbacks -> ManagedPtr RemoteCallbacks
toManagedPtr (RemoteCallbacks ManagedPtr RemoteCallbacks
p) = ManagedPtr RemoteCallbacks
p
foreign import ccall "ggit_remote_callbacks_get_type"
c_ggit_remote_callbacks_get_type :: IO B.Types.GType
instance B.Types.TypedObject RemoteCallbacks where
glibType :: IO GType
glibType = IO GType
c_ggit_remote_callbacks_get_type
instance B.Types.GObject RemoteCallbacks
class (SP.GObject o, O.IsDescendantOf RemoteCallbacks o) => IsRemoteCallbacks o
instance (SP.GObject o, O.IsDescendantOf RemoteCallbacks o) => IsRemoteCallbacks o
instance O.HasParentTypes RemoteCallbacks
type instance O.ParentTypes RemoteCallbacks = '[GObject.Object.Object]
toRemoteCallbacks :: (MIO.MonadIO m, IsRemoteCallbacks o) => o -> m RemoteCallbacks
toRemoteCallbacks :: forall (m :: * -> *) o.
(MonadIO m, IsRemoteCallbacks o) =>
o -> m RemoteCallbacks
toRemoteCallbacks = IO RemoteCallbacks -> m RemoteCallbacks
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO RemoteCallbacks -> m RemoteCallbacks)
-> (o -> IO RemoteCallbacks) -> o -> m RemoteCallbacks
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr RemoteCallbacks -> RemoteCallbacks)
-> o -> IO RemoteCallbacks
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr RemoteCallbacks -> RemoteCallbacks
RemoteCallbacks
instance B.GValue.IsGValue (Maybe RemoteCallbacks) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_remote_callbacks_get_type
gvalueSet_ :: Ptr GValue -> Maybe RemoteCallbacks -> IO ()
gvalueSet_ Ptr GValue
gv Maybe RemoteCallbacks
P.Nothing = Ptr GValue -> Ptr RemoteCallbacks -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr RemoteCallbacks
forall a. Ptr a
FP.nullPtr :: FP.Ptr RemoteCallbacks)
gvalueSet_ Ptr GValue
gv (P.Just RemoteCallbacks
obj) = RemoteCallbacks -> (Ptr RemoteCallbacks -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RemoteCallbacks
obj (Ptr GValue -> Ptr RemoteCallbacks -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe RemoteCallbacks)
gvalueGet_ Ptr GValue
gv = do
Ptr RemoteCallbacks
ptr <- Ptr GValue -> IO (Ptr RemoteCallbacks)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr RemoteCallbacks)
if Ptr RemoteCallbacks
ptr Ptr RemoteCallbacks -> Ptr RemoteCallbacks -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr RemoteCallbacks
forall a. Ptr a
FP.nullPtr
then RemoteCallbacks -> Maybe RemoteCallbacks
forall a. a -> Maybe a
P.Just (RemoteCallbacks -> Maybe RemoteCallbacks)
-> IO RemoteCallbacks -> IO (Maybe RemoteCallbacks)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr RemoteCallbacks -> RemoteCallbacks)
-> Ptr RemoteCallbacks -> IO RemoteCallbacks
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr RemoteCallbacks -> RemoteCallbacks
RemoteCallbacks Ptr RemoteCallbacks
ptr
else Maybe RemoteCallbacks -> IO (Maybe RemoteCallbacks)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe RemoteCallbacks
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRemoteCallbacksMethod (t :: Symbol) (o :: *) :: * where
ResolveRemoteCallbacksMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRemoteCallbacksMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRemoteCallbacksMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRemoteCallbacksMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRemoteCallbacksMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRemoteCallbacksMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRemoteCallbacksMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRemoteCallbacksMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRemoteCallbacksMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRemoteCallbacksMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRemoteCallbacksMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRemoteCallbacksMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRemoteCallbacksMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRemoteCallbacksMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRemoteCallbacksMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRemoteCallbacksMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRemoteCallbacksMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRemoteCallbacksMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRemoteCallbacksMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRemoteCallbacksMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRemoteCallbacksMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRemoteCallbacksMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRemoteCallbacksMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRemoteCallbacksMethod t RemoteCallbacks, O.OverloadedMethod info RemoteCallbacks p) => OL.IsLabel t (RemoteCallbacks -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveRemoteCallbacksMethod t RemoteCallbacks, O.OverloadedMethod info RemoteCallbacks p, R.HasField t RemoteCallbacks p) => R.HasField t RemoteCallbacks p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRemoteCallbacksMethod t RemoteCallbacks, O.OverloadedMethodInfo info RemoteCallbacks) => OL.IsLabel t (O.MethodProxy info RemoteCallbacks) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type RemoteCallbacksCompletionCallback =
Ggit.Enums.RemoteCompletionType
-> IO ()
noRemoteCallbacksCompletionCallback :: Maybe RemoteCallbacksCompletionCallback
noRemoteCallbacksCompletionCallback :: Maybe RemoteCallbacksCompletionCallback
noRemoteCallbacksCompletionCallback = Maybe RemoteCallbacksCompletionCallback
forall a. Maybe a
Nothing
type C_RemoteCallbacksCompletionCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RemoteCallbacksCompletionCallback :: C_RemoteCallbacksCompletionCallback -> IO (FunPtr C_RemoteCallbacksCompletionCallback)
genClosure_RemoteCallbacksCompletion :: MonadIO m => RemoteCallbacksCompletionCallback -> m (GClosure C_RemoteCallbacksCompletionCallback)
genClosure_RemoteCallbacksCompletion :: forall (m :: * -> *).
MonadIO m =>
RemoteCallbacksCompletionCallback
-> m (GClosure C_RemoteCallbacksCompletionCallback)
genClosure_RemoteCallbacksCompletion RemoteCallbacksCompletionCallback
cb = IO (GClosure C_RemoteCallbacksCompletionCallback)
-> m (GClosure C_RemoteCallbacksCompletionCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RemoteCallbacksCompletionCallback)
-> m (GClosure C_RemoteCallbacksCompletionCallback))
-> IO (GClosure C_RemoteCallbacksCompletionCallback)
-> m (GClosure C_RemoteCallbacksCompletionCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksCompletionCallback
cb' = RemoteCallbacksCompletionCallback
-> C_RemoteCallbacksCompletionCallback
wrap_RemoteCallbacksCompletionCallback RemoteCallbacksCompletionCallback
cb
C_RemoteCallbacksCompletionCallback
-> IO (FunPtr C_RemoteCallbacksCompletionCallback)
mk_RemoteCallbacksCompletionCallback C_RemoteCallbacksCompletionCallback
cb' IO (FunPtr C_RemoteCallbacksCompletionCallback)
-> (FunPtr C_RemoteCallbacksCompletionCallback
-> IO (GClosure C_RemoteCallbacksCompletionCallback))
-> IO (GClosure C_RemoteCallbacksCompletionCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RemoteCallbacksCompletionCallback
-> IO (GClosure C_RemoteCallbacksCompletionCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RemoteCallbacksCompletionCallback ::
RemoteCallbacksCompletionCallback ->
C_RemoteCallbacksCompletionCallback
wrap_RemoteCallbacksCompletionCallback :: RemoteCallbacksCompletionCallback
-> C_RemoteCallbacksCompletionCallback
wrap_RemoteCallbacksCompletionCallback RemoteCallbacksCompletionCallback
_cb Ptr ()
_ CUInt
object Ptr ()
_ = do
let object' :: RemoteCompletionType
object' = (Int -> RemoteCompletionType
forall a. Enum a => Int -> a
toEnum (Int -> RemoteCompletionType)
-> (CUInt -> Int) -> CUInt -> RemoteCompletionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
object
RemoteCallbacksCompletionCallback
_cb RemoteCompletionType
object'
onRemoteCallbacksCompletion :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksCompletionCallback -> m SignalHandlerId
onRemoteCallbacksCompletion :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksCompletionCallback -> m SignalHandlerId
onRemoteCallbacksCompletion a
obj RemoteCallbacksCompletionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksCompletionCallback
cb' = RemoteCallbacksCompletionCallback
-> C_RemoteCallbacksCompletionCallback
wrap_RemoteCallbacksCompletionCallback RemoteCallbacksCompletionCallback
cb
FunPtr C_RemoteCallbacksCompletionCallback
cb'' <- C_RemoteCallbacksCompletionCallback
-> IO (FunPtr C_RemoteCallbacksCompletionCallback)
mk_RemoteCallbacksCompletionCallback C_RemoteCallbacksCompletionCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksCompletionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"completion" FunPtr C_RemoteCallbacksCompletionCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRemoteCallbacksCompletion :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksCompletionCallback -> m SignalHandlerId
afterRemoteCallbacksCompletion :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksCompletionCallback -> m SignalHandlerId
afterRemoteCallbacksCompletion a
obj RemoteCallbacksCompletionCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksCompletionCallback
cb' = RemoteCallbacksCompletionCallback
-> C_RemoteCallbacksCompletionCallback
wrap_RemoteCallbacksCompletionCallback RemoteCallbacksCompletionCallback
cb
FunPtr C_RemoteCallbacksCompletionCallback
cb'' <- C_RemoteCallbacksCompletionCallback
-> IO (FunPtr C_RemoteCallbacksCompletionCallback)
mk_RemoteCallbacksCompletionCallback C_RemoteCallbacksCompletionCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksCompletionCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"completion" FunPtr C_RemoteCallbacksCompletionCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RemoteCallbacksCompletionSignalInfo
instance SignalInfo RemoteCallbacksCompletionSignalInfo where
type HaskellCallbackType RemoteCallbacksCompletionSignalInfo = RemoteCallbacksCompletionCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RemoteCallbacksCompletionCallback cb
cb'' <- mk_RemoteCallbacksCompletionCallback cb'
connectSignalFunPtr obj "completion" cb'' connectMode detail
#endif
type RemoteCallbacksProgressCallback =
T.Text
-> IO ()
noRemoteCallbacksProgressCallback :: Maybe RemoteCallbacksProgressCallback
noRemoteCallbacksProgressCallback :: Maybe RemoteCallbacksProgressCallback
noRemoteCallbacksProgressCallback = Maybe RemoteCallbacksProgressCallback
forall a. Maybe a
Nothing
type C_RemoteCallbacksProgressCallback =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RemoteCallbacksProgressCallback :: C_RemoteCallbacksProgressCallback -> IO (FunPtr C_RemoteCallbacksProgressCallback)
genClosure_RemoteCallbacksProgress :: MonadIO m => RemoteCallbacksProgressCallback -> m (GClosure C_RemoteCallbacksProgressCallback)
genClosure_RemoteCallbacksProgress :: forall (m :: * -> *).
MonadIO m =>
RemoteCallbacksProgressCallback
-> m (GClosure C_RemoteCallbacksProgressCallback)
genClosure_RemoteCallbacksProgress RemoteCallbacksProgressCallback
cb = IO (GClosure C_RemoteCallbacksProgressCallback)
-> m (GClosure C_RemoteCallbacksProgressCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RemoteCallbacksProgressCallback)
-> m (GClosure C_RemoteCallbacksProgressCallback))
-> IO (GClosure C_RemoteCallbacksProgressCallback)
-> m (GClosure C_RemoteCallbacksProgressCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksProgressCallback
cb' = RemoteCallbacksProgressCallback
-> C_RemoteCallbacksProgressCallback
wrap_RemoteCallbacksProgressCallback RemoteCallbacksProgressCallback
cb
C_RemoteCallbacksProgressCallback
-> IO (FunPtr C_RemoteCallbacksProgressCallback)
mk_RemoteCallbacksProgressCallback C_RemoteCallbacksProgressCallback
cb' IO (FunPtr C_RemoteCallbacksProgressCallback)
-> (FunPtr C_RemoteCallbacksProgressCallback
-> IO (GClosure C_RemoteCallbacksProgressCallback))
-> IO (GClosure C_RemoteCallbacksProgressCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RemoteCallbacksProgressCallback
-> IO (GClosure C_RemoteCallbacksProgressCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RemoteCallbacksProgressCallback ::
RemoteCallbacksProgressCallback ->
C_RemoteCallbacksProgressCallback
wrap_RemoteCallbacksProgressCallback :: RemoteCallbacksProgressCallback
-> C_RemoteCallbacksProgressCallback
wrap_RemoteCallbacksProgressCallback RemoteCallbacksProgressCallback
_cb Ptr ()
_ CString
object Ptr ()
_ = do
Text
object' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
object
RemoteCallbacksProgressCallback
_cb Text
object'
onRemoteCallbacksProgress :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksProgressCallback -> m SignalHandlerId
onRemoteCallbacksProgress :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksProgressCallback -> m SignalHandlerId
onRemoteCallbacksProgress a
obj RemoteCallbacksProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksProgressCallback
cb' = RemoteCallbacksProgressCallback
-> C_RemoteCallbacksProgressCallback
wrap_RemoteCallbacksProgressCallback RemoteCallbacksProgressCallback
cb
FunPtr C_RemoteCallbacksProgressCallback
cb'' <- C_RemoteCallbacksProgressCallback
-> IO (FunPtr C_RemoteCallbacksProgressCallback)
mk_RemoteCallbacksProgressCallback C_RemoteCallbacksProgressCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksProgressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"progress" FunPtr C_RemoteCallbacksProgressCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRemoteCallbacksProgress :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksProgressCallback -> m SignalHandlerId
afterRemoteCallbacksProgress :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksProgressCallback -> m SignalHandlerId
afterRemoteCallbacksProgress a
obj RemoteCallbacksProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksProgressCallback
cb' = RemoteCallbacksProgressCallback
-> C_RemoteCallbacksProgressCallback
wrap_RemoteCallbacksProgressCallback RemoteCallbacksProgressCallback
cb
FunPtr C_RemoteCallbacksProgressCallback
cb'' <- C_RemoteCallbacksProgressCallback
-> IO (FunPtr C_RemoteCallbacksProgressCallback)
mk_RemoteCallbacksProgressCallback C_RemoteCallbacksProgressCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksProgressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"progress" FunPtr C_RemoteCallbacksProgressCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RemoteCallbacksProgressSignalInfo
instance SignalInfo RemoteCallbacksProgressSignalInfo where
type HaskellCallbackType RemoteCallbacksProgressSignalInfo = RemoteCallbacksProgressCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RemoteCallbacksProgressCallback cb
cb'' <- mk_RemoteCallbacksProgressCallback cb'
connectSignalFunPtr obj "progress" cb'' connectMode detail
#endif
type RemoteCallbacksTransferProgressCallback =
Ggit.TransferProgress.TransferProgress
-> IO ()
noRemoteCallbacksTransferProgressCallback :: Maybe RemoteCallbacksTransferProgressCallback
noRemoteCallbacksTransferProgressCallback :: Maybe RemoteCallbacksTransferProgressCallback
noRemoteCallbacksTransferProgressCallback = Maybe RemoteCallbacksTransferProgressCallback
forall a. Maybe a
Nothing
type C_RemoteCallbacksTransferProgressCallback =
Ptr () ->
Ptr Ggit.TransferProgress.TransferProgress ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RemoteCallbacksTransferProgressCallback :: C_RemoteCallbacksTransferProgressCallback -> IO (FunPtr C_RemoteCallbacksTransferProgressCallback)
genClosure_RemoteCallbacksTransferProgress :: MonadIO m => RemoteCallbacksTransferProgressCallback -> m (GClosure C_RemoteCallbacksTransferProgressCallback)
genClosure_RemoteCallbacksTransferProgress :: forall (m :: * -> *).
MonadIO m =>
RemoteCallbacksTransferProgressCallback
-> m (GClosure C_RemoteCallbacksTransferProgressCallback)
genClosure_RemoteCallbacksTransferProgress RemoteCallbacksTransferProgressCallback
cb = IO (GClosure C_RemoteCallbacksTransferProgressCallback)
-> m (GClosure C_RemoteCallbacksTransferProgressCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RemoteCallbacksTransferProgressCallback)
-> m (GClosure C_RemoteCallbacksTransferProgressCallback))
-> IO (GClosure C_RemoteCallbacksTransferProgressCallback)
-> m (GClosure C_RemoteCallbacksTransferProgressCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksTransferProgressCallback
cb' = RemoteCallbacksTransferProgressCallback
-> C_RemoteCallbacksTransferProgressCallback
wrap_RemoteCallbacksTransferProgressCallback RemoteCallbacksTransferProgressCallback
cb
C_RemoteCallbacksTransferProgressCallback
-> IO (FunPtr C_RemoteCallbacksTransferProgressCallback)
mk_RemoteCallbacksTransferProgressCallback C_RemoteCallbacksTransferProgressCallback
cb' IO (FunPtr C_RemoteCallbacksTransferProgressCallback)
-> (FunPtr C_RemoteCallbacksTransferProgressCallback
-> IO (GClosure C_RemoteCallbacksTransferProgressCallback))
-> IO (GClosure C_RemoteCallbacksTransferProgressCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RemoteCallbacksTransferProgressCallback
-> IO (GClosure C_RemoteCallbacksTransferProgressCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RemoteCallbacksTransferProgressCallback ::
RemoteCallbacksTransferProgressCallback ->
C_RemoteCallbacksTransferProgressCallback
wrap_RemoteCallbacksTransferProgressCallback :: RemoteCallbacksTransferProgressCallback
-> C_RemoteCallbacksTransferProgressCallback
wrap_RemoteCallbacksTransferProgressCallback RemoteCallbacksTransferProgressCallback
_cb Ptr ()
_ Ptr TransferProgress
object Ptr ()
_ = do
(ManagedPtr TransferProgress -> TransferProgress)
-> Ptr TransferProgress
-> RemoteCallbacksTransferProgressCallback
-> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TransferProgress -> TransferProgress
Ggit.TransferProgress.TransferProgress Ptr TransferProgress
object (RemoteCallbacksTransferProgressCallback -> IO ())
-> RemoteCallbacksTransferProgressCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \TransferProgress
object' -> do
RemoteCallbacksTransferProgressCallback
_cb TransferProgress
object'
onRemoteCallbacksTransferProgress :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksTransferProgressCallback -> m SignalHandlerId
onRemoteCallbacksTransferProgress :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksTransferProgressCallback -> m SignalHandlerId
onRemoteCallbacksTransferProgress a
obj RemoteCallbacksTransferProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksTransferProgressCallback
cb' = RemoteCallbacksTransferProgressCallback
-> C_RemoteCallbacksTransferProgressCallback
wrap_RemoteCallbacksTransferProgressCallback RemoteCallbacksTransferProgressCallback
cb
FunPtr C_RemoteCallbacksTransferProgressCallback
cb'' <- C_RemoteCallbacksTransferProgressCallback
-> IO (FunPtr C_RemoteCallbacksTransferProgressCallback)
mk_RemoteCallbacksTransferProgressCallback C_RemoteCallbacksTransferProgressCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksTransferProgressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"transfer-progress" FunPtr C_RemoteCallbacksTransferProgressCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRemoteCallbacksTransferProgress :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksTransferProgressCallback -> m SignalHandlerId
afterRemoteCallbacksTransferProgress :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksTransferProgressCallback -> m SignalHandlerId
afterRemoteCallbacksTransferProgress a
obj RemoteCallbacksTransferProgressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksTransferProgressCallback
cb' = RemoteCallbacksTransferProgressCallback
-> C_RemoteCallbacksTransferProgressCallback
wrap_RemoteCallbacksTransferProgressCallback RemoteCallbacksTransferProgressCallback
cb
FunPtr C_RemoteCallbacksTransferProgressCallback
cb'' <- C_RemoteCallbacksTransferProgressCallback
-> IO (FunPtr C_RemoteCallbacksTransferProgressCallback)
mk_RemoteCallbacksTransferProgressCallback C_RemoteCallbacksTransferProgressCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksTransferProgressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"transfer-progress" FunPtr C_RemoteCallbacksTransferProgressCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RemoteCallbacksTransferProgressSignalInfo
instance SignalInfo RemoteCallbacksTransferProgressSignalInfo where
type HaskellCallbackType RemoteCallbacksTransferProgressSignalInfo = RemoteCallbacksTransferProgressCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RemoteCallbacksTransferProgressCallback cb
cb'' <- mk_RemoteCallbacksTransferProgressCallback cb'
connectSignalFunPtr obj "transfer-progress" cb'' connectMode detail
#endif
type RemoteCallbacksUpdateTipsCallback =
T.Text
-> Ggit.OId.OId
-> Ggit.OId.OId
-> IO ()
noRemoteCallbacksUpdateTipsCallback :: Maybe RemoteCallbacksUpdateTipsCallback
noRemoteCallbacksUpdateTipsCallback :: Maybe RemoteCallbacksUpdateTipsCallback
noRemoteCallbacksUpdateTipsCallback = Maybe RemoteCallbacksUpdateTipsCallback
forall a. Maybe a
Nothing
type C_RemoteCallbacksUpdateTipsCallback =
Ptr () ->
CString ->
Ptr Ggit.OId.OId ->
Ptr Ggit.OId.OId ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_RemoteCallbacksUpdateTipsCallback :: C_RemoteCallbacksUpdateTipsCallback -> IO (FunPtr C_RemoteCallbacksUpdateTipsCallback)
genClosure_RemoteCallbacksUpdateTips :: MonadIO m => RemoteCallbacksUpdateTipsCallback -> m (GClosure C_RemoteCallbacksUpdateTipsCallback)
genClosure_RemoteCallbacksUpdateTips :: forall (m :: * -> *).
MonadIO m =>
RemoteCallbacksUpdateTipsCallback
-> m (GClosure C_RemoteCallbacksUpdateTipsCallback)
genClosure_RemoteCallbacksUpdateTips RemoteCallbacksUpdateTipsCallback
cb = IO (GClosure C_RemoteCallbacksUpdateTipsCallback)
-> m (GClosure C_RemoteCallbacksUpdateTipsCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_RemoteCallbacksUpdateTipsCallback)
-> m (GClosure C_RemoteCallbacksUpdateTipsCallback))
-> IO (GClosure C_RemoteCallbacksUpdateTipsCallback)
-> m (GClosure C_RemoteCallbacksUpdateTipsCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksUpdateTipsCallback
cb' = RemoteCallbacksUpdateTipsCallback
-> C_RemoteCallbacksUpdateTipsCallback
wrap_RemoteCallbacksUpdateTipsCallback RemoteCallbacksUpdateTipsCallback
cb
C_RemoteCallbacksUpdateTipsCallback
-> IO (FunPtr C_RemoteCallbacksUpdateTipsCallback)
mk_RemoteCallbacksUpdateTipsCallback C_RemoteCallbacksUpdateTipsCallback
cb' IO (FunPtr C_RemoteCallbacksUpdateTipsCallback)
-> (FunPtr C_RemoteCallbacksUpdateTipsCallback
-> IO (GClosure C_RemoteCallbacksUpdateTipsCallback))
-> IO (GClosure C_RemoteCallbacksUpdateTipsCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_RemoteCallbacksUpdateTipsCallback
-> IO (GClosure C_RemoteCallbacksUpdateTipsCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_RemoteCallbacksUpdateTipsCallback ::
RemoteCallbacksUpdateTipsCallback ->
C_RemoteCallbacksUpdateTipsCallback
wrap_RemoteCallbacksUpdateTipsCallback :: RemoteCallbacksUpdateTipsCallback
-> C_RemoteCallbacksUpdateTipsCallback
wrap_RemoteCallbacksUpdateTipsCallback RemoteCallbacksUpdateTipsCallback
_cb Ptr ()
_ CString
object Ptr OId
p0 Ptr OId
p1 Ptr ()
_ = do
Text
object' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
object
(ManagedPtr OId -> OId) -> Ptr OId -> (OId -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr OId -> OId
Ggit.OId.OId Ptr OId
p0 ((OId -> IO ()) -> IO ()) -> (OId -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \OId
p0' -> do
(ManagedPtr OId -> OId) -> Ptr OId -> (OId -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr OId -> OId
Ggit.OId.OId Ptr OId
p1 ((OId -> IO ()) -> IO ()) -> (OId -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \OId
p1' -> do
RemoteCallbacksUpdateTipsCallback
_cb Text
object' OId
p0' OId
p1'
onRemoteCallbacksUpdateTips :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksUpdateTipsCallback -> m SignalHandlerId
onRemoteCallbacksUpdateTips :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksUpdateTipsCallback -> m SignalHandlerId
onRemoteCallbacksUpdateTips a
obj RemoteCallbacksUpdateTipsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksUpdateTipsCallback
cb' = RemoteCallbacksUpdateTipsCallback
-> C_RemoteCallbacksUpdateTipsCallback
wrap_RemoteCallbacksUpdateTipsCallback RemoteCallbacksUpdateTipsCallback
cb
FunPtr C_RemoteCallbacksUpdateTipsCallback
cb'' <- C_RemoteCallbacksUpdateTipsCallback
-> IO (FunPtr C_RemoteCallbacksUpdateTipsCallback)
mk_RemoteCallbacksUpdateTipsCallback C_RemoteCallbacksUpdateTipsCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksUpdateTipsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-tips" FunPtr C_RemoteCallbacksUpdateTipsCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterRemoteCallbacksUpdateTips :: (IsRemoteCallbacks a, MonadIO m) => a -> RemoteCallbacksUpdateTipsCallback -> m SignalHandlerId
afterRemoteCallbacksUpdateTips :: forall a (m :: * -> *).
(IsRemoteCallbacks a, MonadIO m) =>
a -> RemoteCallbacksUpdateTipsCallback -> m SignalHandlerId
afterRemoteCallbacksUpdateTips a
obj RemoteCallbacksUpdateTipsCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_RemoteCallbacksUpdateTipsCallback
cb' = RemoteCallbacksUpdateTipsCallback
-> C_RemoteCallbacksUpdateTipsCallback
wrap_RemoteCallbacksUpdateTipsCallback RemoteCallbacksUpdateTipsCallback
cb
FunPtr C_RemoteCallbacksUpdateTipsCallback
cb'' <- C_RemoteCallbacksUpdateTipsCallback
-> IO (FunPtr C_RemoteCallbacksUpdateTipsCallback)
mk_RemoteCallbacksUpdateTipsCallback C_RemoteCallbacksUpdateTipsCallback
cb'
a
-> Text
-> FunPtr C_RemoteCallbacksUpdateTipsCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"update-tips" FunPtr C_RemoteCallbacksUpdateTipsCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data RemoteCallbacksUpdateTipsSignalInfo
instance SignalInfo RemoteCallbacksUpdateTipsSignalInfo where
type HaskellCallbackType RemoteCallbacksUpdateTipsSignalInfo = RemoteCallbacksUpdateTipsCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_RemoteCallbacksUpdateTipsCallback cb
cb'' <- mk_RemoteCallbacksUpdateTipsCallback cb'
connectSignalFunPtr obj "update-tips" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RemoteCallbacks
type instance O.AttributeList RemoteCallbacks = RemoteCallbacksAttributeList
type RemoteCallbacksAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList RemoteCallbacks = RemoteCallbacksSignalList
type RemoteCallbacksSignalList = ('[ '("completion", RemoteCallbacksCompletionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("progress", RemoteCallbacksProgressSignalInfo), '("transferProgress", RemoteCallbacksTransferProgressSignalInfo), '("updateTips", RemoteCallbacksUpdateTipsSignalInfo)] :: [(Symbol, *)])
#endif