#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.OSTree.Objects.RepoFinderOverride
(
RepoFinderOverride(..) ,
IsRepoFinderOverride ,
toRepoFinderOverride ,
noRepoFinderOverride ,
#if ENABLE_OVERLOADING
RepoFinderOverrideAddUriMethodInfo ,
#endif
repoFinderOverrideAddUri ,
repoFinderOverrideNew ,
) 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.ManagedPtr as B.ManagedPtr
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.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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.OSTree.Interfaces.RepoFinder as OSTree.RepoFinder
newtype RepoFinderOverride = RepoFinderOverride (ManagedPtr RepoFinderOverride)
foreign import ccall "ostree_repo_finder_override_get_type"
c_ostree_repo_finder_override_get_type :: IO GType
instance GObject RepoFinderOverride where
gobjectType = c_ostree_repo_finder_override_get_type
class (GObject o, O.IsDescendantOf RepoFinderOverride o) => IsRepoFinderOverride o
instance (GObject o, O.IsDescendantOf RepoFinderOverride o) => IsRepoFinderOverride o
instance O.HasParentTypes RepoFinderOverride
type instance O.ParentTypes RepoFinderOverride = '[GObject.Object.Object, OSTree.RepoFinder.RepoFinder]
toRepoFinderOverride :: (MonadIO m, IsRepoFinderOverride o) => o -> m RepoFinderOverride
toRepoFinderOverride = liftIO . unsafeCastTo RepoFinderOverride
noRepoFinderOverride :: Maybe RepoFinderOverride
noRepoFinderOverride = Nothing
#if ENABLE_OVERLOADING
type family ResolveRepoFinderOverrideMethod (t :: Symbol) (o :: *) :: * where
ResolveRepoFinderOverrideMethod "addUri" o = RepoFinderOverrideAddUriMethodInfo
ResolveRepoFinderOverrideMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRepoFinderOverrideMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRepoFinderOverrideMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRepoFinderOverrideMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRepoFinderOverrideMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRepoFinderOverrideMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRepoFinderOverrideMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRepoFinderOverrideMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRepoFinderOverrideMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRepoFinderOverrideMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRepoFinderOverrideMethod "resolveAsync" o = OSTree.RepoFinder.RepoFinderResolveAsyncMethodInfo
ResolveRepoFinderOverrideMethod "resolveFinish" o = OSTree.RepoFinder.RepoFinderResolveFinishMethodInfo
ResolveRepoFinderOverrideMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRepoFinderOverrideMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRepoFinderOverrideMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRepoFinderOverrideMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRepoFinderOverrideMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRepoFinderOverrideMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRepoFinderOverrideMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRepoFinderOverrideMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRepoFinderOverrideMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRepoFinderOverrideMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRepoFinderOverrideMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRepoFinderOverrideMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRepoFinderOverrideMethod t RepoFinderOverride, O.MethodInfo info RepoFinderOverride p) => OL.IsLabel t (RepoFinderOverride -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList RepoFinderOverride
type instance O.AttributeList RepoFinderOverride = RepoFinderOverrideAttributeList
type RepoFinderOverrideAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList RepoFinderOverride = RepoFinderOverrideSignalList
type RepoFinderOverrideSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ostree_repo_finder_override_new" ostree_repo_finder_override_new ::
IO (Ptr RepoFinderOverride)
repoFinderOverrideNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m RepoFinderOverride
repoFinderOverrideNew = liftIO $ do
result <- ostree_repo_finder_override_new
checkUnexpectedReturnNULL "repoFinderOverrideNew" result
result' <- (wrapObject RepoFinderOverride) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "ostree_repo_finder_override_add_uri" ostree_repo_finder_override_add_uri ::
Ptr RepoFinderOverride ->
CString ->
IO ()
repoFinderOverrideAddUri ::
(B.CallStack.HasCallStack, MonadIO m, IsRepoFinderOverride a) =>
a
-> T.Text
-> m ()
repoFinderOverrideAddUri self uri = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
uri' <- textToCString uri
ostree_repo_finder_override_add_uri self' uri'
touchManagedPtr self
freeMem uri'
return ()
#if ENABLE_OVERLOADING
data RepoFinderOverrideAddUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRepoFinderOverride a) => O.MethodInfo RepoFinderOverrideAddUriMethodInfo a signature where
overloadedMethod _ = repoFinderOverrideAddUri
#endif