{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.CredSshKeyFromAgent
(
CredSshKeyFromAgent(..) ,
IsCredSshKeyFromAgent ,
toCredSshKeyFromAgent ,
noCredSshKeyFromAgent ,
#if defined(ENABLE_OVERLOADING)
ResolveCredSshKeyFromAgentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CredSshKeyFromAgentGetUsernameMethodInfo,
#endif
credSshKeyFromAgentGetUsername ,
credSshKeyFromAgentNew ,
#if defined(ENABLE_OVERLOADING)
CredSshKeyFromAgentUsernamePropertyInfo ,
#endif
constructCredSshKeyFromAgentUsername ,
#if defined(ENABLE_OVERLOADING)
credSshKeyFromAgentUsername ,
#endif
getCredSshKeyFromAgentUsername ,
) 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.GI.Base.Signals as B.Signals
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.Ggit.Objects.Cred as Ggit.Cred
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
newtype CredSshKeyFromAgent = CredSshKeyFromAgent (ManagedPtr CredSshKeyFromAgent)
deriving (Eq)
foreign import ccall "ggit_cred_ssh_key_from_agent_get_type"
c_ggit_cred_ssh_key_from_agent_get_type :: IO GType
instance GObject CredSshKeyFromAgent where
gobjectType = c_ggit_cred_ssh_key_from_agent_get_type
instance B.GValue.IsGValue CredSshKeyFromAgent where
toGValue o = do
gtype <- c_ggit_cred_ssh_key_from_agent_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr CredSshKeyFromAgent)
B.ManagedPtr.newObject CredSshKeyFromAgent ptr
class (GObject o, O.IsDescendantOf CredSshKeyFromAgent o) => IsCredSshKeyFromAgent o
instance (GObject o, O.IsDescendantOf CredSshKeyFromAgent o) => IsCredSshKeyFromAgent o
instance O.HasParentTypes CredSshKeyFromAgent
type instance O.ParentTypes CredSshKeyFromAgent = '[Ggit.Cred.Cred, Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object, Gio.Initable.Initable]
toCredSshKeyFromAgent :: (MonadIO m, IsCredSshKeyFromAgent o) => o -> m CredSshKeyFromAgent
toCredSshKeyFromAgent = liftIO . unsafeCastTo CredSshKeyFromAgent
noCredSshKeyFromAgent :: Maybe CredSshKeyFromAgent
noCredSshKeyFromAgent = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCredSshKeyFromAgentMethod (t :: Symbol) (o :: *) :: * where
ResolveCredSshKeyFromAgentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCredSshKeyFromAgentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCredSshKeyFromAgentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCredSshKeyFromAgentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCredSshKeyFromAgentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCredSshKeyFromAgentMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveCredSshKeyFromAgentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCredSshKeyFromAgentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCredSshKeyFromAgentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCredSshKeyFromAgentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCredSshKeyFromAgentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCredSshKeyFromAgentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCredSshKeyFromAgentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCredSshKeyFromAgentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCredSshKeyFromAgentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCredSshKeyFromAgentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCredSshKeyFromAgentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCredSshKeyFromAgentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCredSshKeyFromAgentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCredSshKeyFromAgentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCredSshKeyFromAgentMethod "getUsername" o = CredSshKeyFromAgentGetUsernameMethodInfo
ResolveCredSshKeyFromAgentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCredSshKeyFromAgentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCredSshKeyFromAgentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCredSshKeyFromAgentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCredSshKeyFromAgentMethod t CredSshKeyFromAgent, O.MethodInfo info CredSshKeyFromAgent p) => OL.IsLabel t (CredSshKeyFromAgent -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getCredSshKeyFromAgentUsername :: (MonadIO m, IsCredSshKeyFromAgent o) => o -> m (Maybe T.Text)
getCredSshKeyFromAgentUsername obj = liftIO $ B.Properties.getObjectPropertyString obj "username"
constructCredSshKeyFromAgentUsername :: (IsCredSshKeyFromAgent o) => T.Text -> IO (GValueConstruct o)
constructCredSshKeyFromAgentUsername val = B.Properties.constructObjectPropertyString "username" (Just val)
#if defined(ENABLE_OVERLOADING)
data CredSshKeyFromAgentUsernamePropertyInfo
instance AttrInfo CredSshKeyFromAgentUsernamePropertyInfo where
type AttrAllowedOps CredSshKeyFromAgentUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = IsCredSshKeyFromAgent
type AttrSetTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = (~) T.Text
type AttrTransferType CredSshKeyFromAgentUsernamePropertyInfo = T.Text
type AttrGetType CredSshKeyFromAgentUsernamePropertyInfo = (Maybe T.Text)
type AttrLabel CredSshKeyFromAgentUsernamePropertyInfo = "username"
type AttrOrigin CredSshKeyFromAgentUsernamePropertyInfo = CredSshKeyFromAgent
attrGet = getCredSshKeyFromAgentUsername
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructCredSshKeyFromAgentUsername
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CredSshKeyFromAgent
type instance O.AttributeList CredSshKeyFromAgent = CredSshKeyFromAgentAttributeList
type CredSshKeyFromAgentAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo), '("username", CredSshKeyFromAgentUsernamePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
credSshKeyFromAgentUsername :: AttrLabelProxy "username"
credSshKeyFromAgentUsername = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CredSshKeyFromAgent = CredSshKeyFromAgentSignalList
type CredSshKeyFromAgentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_cred_ssh_key_from_agent_new" ggit_cred_ssh_key_from_agent_new ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr CredSshKeyFromAgent)
credSshKeyFromAgentNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m (Maybe CredSshKeyFromAgent)
credSshKeyFromAgentNew username = liftIO $ do
username' <- textToCString username
onException (do
result <- propagateGError $ ggit_cred_ssh_key_from_agent_new username'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject CredSshKeyFromAgent) result'
return result''
freeMem username'
return maybeResult
) (do
freeMem username'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_cred_ssh_key_from_agent_get_username" ggit_cred_ssh_key_from_agent_get_username ::
Ptr CredSshKeyFromAgent ->
IO CString
credSshKeyFromAgentGetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsCredSshKeyFromAgent a) =>
a
-> m (Maybe T.Text)
credSshKeyFromAgentGetUsername cred = liftIO $ do
cred' <- unsafeManagedPtrCastPtr cred
result <- ggit_cred_ssh_key_from_agent_get_username cred'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr cred
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CredSshKeyFromAgentGetUsernameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCredSshKeyFromAgent a) => O.MethodInfo CredSshKeyFromAgentGetUsernameMethodInfo a signature where
overloadedMethod = credSshKeyFromAgentGetUsername
#endif