{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.CredSshInteractive
(
CredSshInteractive(..) ,
IsCredSshInteractive ,
toCredSshInteractive ,
noCredSshInteractive ,
#if defined(ENABLE_OVERLOADING)
ResolveCredSshInteractiveMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CredSshInteractiveGetUsernameMethodInfo ,
#endif
credSshInteractiveGetUsername ,
credSshInteractiveNew ,
#if defined(ENABLE_OVERLOADING)
CredSshInteractiveUsernamePropertyInfo ,
#endif
constructCredSshInteractiveUsername ,
#if defined(ENABLE_OVERLOADING)
credSshInteractiveUsername ,
#endif
getCredSshInteractiveUsername ,
) 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 CredSshInteractive = CredSshInteractive (ManagedPtr CredSshInteractive)
deriving (Eq)
foreign import ccall "ggit_cred_ssh_interactive_get_type"
c_ggit_cred_ssh_interactive_get_type :: IO GType
instance GObject CredSshInteractive where
gobjectType = c_ggit_cred_ssh_interactive_get_type
instance B.GValue.IsGValue CredSshInteractive where
toGValue o = do
gtype <- c_ggit_cred_ssh_interactive_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 CredSshInteractive)
B.ManagedPtr.newObject CredSshInteractive ptr
class (GObject o, O.IsDescendantOf CredSshInteractive o) => IsCredSshInteractive o
instance (GObject o, O.IsDescendantOf CredSshInteractive o) => IsCredSshInteractive o
instance O.HasParentTypes CredSshInteractive
type instance O.ParentTypes CredSshInteractive = '[Ggit.Cred.Cred, Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object, Gio.Initable.Initable]
toCredSshInteractive :: (MonadIO m, IsCredSshInteractive o) => o -> m CredSshInteractive
toCredSshInteractive = liftIO . unsafeCastTo CredSshInteractive
noCredSshInteractive :: Maybe CredSshInteractive
noCredSshInteractive = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCredSshInteractiveMethod (t :: Symbol) (o :: *) :: * where
ResolveCredSshInteractiveMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCredSshInteractiveMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCredSshInteractiveMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCredSshInteractiveMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCredSshInteractiveMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCredSshInteractiveMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveCredSshInteractiveMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCredSshInteractiveMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCredSshInteractiveMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCredSshInteractiveMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCredSshInteractiveMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCredSshInteractiveMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCredSshInteractiveMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCredSshInteractiveMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCredSshInteractiveMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCredSshInteractiveMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCredSshInteractiveMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCredSshInteractiveMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCredSshInteractiveMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCredSshInteractiveMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCredSshInteractiveMethod "getUsername" o = CredSshInteractiveGetUsernameMethodInfo
ResolveCredSshInteractiveMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCredSshInteractiveMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCredSshInteractiveMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCredSshInteractiveMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCredSshInteractiveMethod t CredSshInteractive, O.MethodInfo info CredSshInteractive p) => OL.IsLabel t (CredSshInteractive -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getCredSshInteractiveUsername :: (MonadIO m, IsCredSshInteractive o) => o -> m T.Text
getCredSshInteractiveUsername obj = liftIO $ checkUnexpectedNothing "getCredSshInteractiveUsername" $ B.Properties.getObjectPropertyString obj "username"
constructCredSshInteractiveUsername :: (IsCredSshInteractive o) => T.Text -> IO (GValueConstruct o)
constructCredSshInteractiveUsername val = B.Properties.constructObjectPropertyString "username" (Just val)
#if defined(ENABLE_OVERLOADING)
data CredSshInteractiveUsernamePropertyInfo
instance AttrInfo CredSshInteractiveUsernamePropertyInfo where
type AttrAllowedOps CredSshInteractiveUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CredSshInteractiveUsernamePropertyInfo = IsCredSshInteractive
type AttrSetTypeConstraint CredSshInteractiveUsernamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CredSshInteractiveUsernamePropertyInfo = (~) T.Text
type AttrTransferType CredSshInteractiveUsernamePropertyInfo = T.Text
type AttrGetType CredSshInteractiveUsernamePropertyInfo = T.Text
type AttrLabel CredSshInteractiveUsernamePropertyInfo = "username"
type AttrOrigin CredSshInteractiveUsernamePropertyInfo = CredSshInteractive
attrGet = getCredSshInteractiveUsername
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructCredSshInteractiveUsername
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CredSshInteractive
type instance O.AttributeList CredSshInteractive = CredSshInteractiveAttributeList
type CredSshInteractiveAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo), '("username", CredSshInteractiveUsernamePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
credSshInteractiveUsername :: AttrLabelProxy "username"
credSshInteractiveUsername = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CredSshInteractive = CredSshInteractiveSignalList
type CredSshInteractiveSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_cred_ssh_interactive_new" ggit_cred_ssh_interactive_new ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr CredSshInteractive)
credSshInteractiveNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m CredSshInteractive
credSshInteractiveNew username = liftIO $ do
username' <- textToCString username
onException (do
result <- propagateGError $ ggit_cred_ssh_interactive_new username'
checkUnexpectedReturnNULL "credSshInteractiveNew" result
result' <- (wrapObject CredSshInteractive) result
freeMem username'
return result'
) (do
freeMem username'
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_cred_ssh_interactive_get_username" ggit_cred_ssh_interactive_get_username ::
Ptr CredSshInteractive ->
IO CString
credSshInteractiveGetUsername ::
(B.CallStack.HasCallStack, MonadIO m, IsCredSshInteractive a) =>
a
-> m T.Text
credSshInteractiveGetUsername cred = liftIO $ do
cred' <- unsafeManagedPtrCastPtr cred
result <- ggit_cred_ssh_interactive_get_username cred'
checkUnexpectedReturnNULL "credSshInteractiveGetUsername" result
result' <- cstringToText result
touchManagedPtr cred
return result'
#if defined(ENABLE_OVERLOADING)
data CredSshInteractiveGetUsernameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsCredSshInteractive a) => O.MethodInfo CredSshInteractiveGetUsernameMethodInfo a signature where
overloadedMethod = credSshInteractiveGetUsername
#endif