{-# 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 ,
#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.BasicTypes as B.Types
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 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 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 (SP.ManagedPtr CredSshInteractive)
deriving (CredSshInteractive -> CredSshInteractive -> Bool
(CredSshInteractive -> CredSshInteractive -> Bool)
-> (CredSshInteractive -> CredSshInteractive -> Bool)
-> Eq CredSshInteractive
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CredSshInteractive -> CredSshInteractive -> Bool
$c/= :: CredSshInteractive -> CredSshInteractive -> Bool
== :: CredSshInteractive -> CredSshInteractive -> Bool
$c== :: CredSshInteractive -> CredSshInteractive -> Bool
Eq)
instance SP.ManagedPtrNewtype CredSshInteractive where
toManagedPtr :: CredSshInteractive -> ManagedPtr CredSshInteractive
toManagedPtr (CredSshInteractive ManagedPtr CredSshInteractive
p) = ManagedPtr CredSshInteractive
p
foreign import ccall "ggit_cred_ssh_interactive_get_type"
c_ggit_cred_ssh_interactive_get_type :: IO B.Types.GType
instance B.Types.TypedObject CredSshInteractive where
glibType :: IO GType
glibType = IO GType
c_ggit_cred_ssh_interactive_get_type
instance B.Types.GObject CredSshInteractive
instance B.GValue.IsGValue CredSshInteractive where
toGValue :: CredSshInteractive -> IO GValue
toGValue CredSshInteractive
o = do
GType
gtype <- IO GType
c_ggit_cred_ssh_interactive_get_type
CredSshInteractive
-> (Ptr CredSshInteractive -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CredSshInteractive
o (GType
-> (GValue -> Ptr CredSshInteractive -> IO ())
-> Ptr CredSshInteractive
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr CredSshInteractive -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO CredSshInteractive
fromGValue GValue
gv = do
Ptr CredSshInteractive
ptr <- GValue -> IO (Ptr CredSshInteractive)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr CredSshInteractive)
(ManagedPtr CredSshInteractive -> CredSshInteractive)
-> Ptr CredSshInteractive -> IO CredSshInteractive
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CredSshInteractive -> CredSshInteractive
CredSshInteractive Ptr CredSshInteractive
ptr
class (SP.GObject o, O.IsDescendantOf CredSshInteractive o) => IsCredSshInteractive o
instance (SP.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 :: o -> m CredSshInteractive
toCredSshInteractive = IO CredSshInteractive -> m CredSshInteractive
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CredSshInteractive -> m CredSshInteractive)
-> (o -> IO CredSshInteractive) -> o -> m CredSshInteractive
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CredSshInteractive -> CredSshInteractive)
-> o -> IO CredSshInteractive
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr CredSshInteractive -> CredSshInteractive
CredSshInteractive
#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 :: o -> m Text
getCredSshInteractiveUsername o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getCredSshInteractiveUsername" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"username"
constructCredSshInteractiveUsername :: (IsCredSshInteractive o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCredSshInteractiveUsername :: Text -> m (GValueConstruct o)
constructCredSshInteractiveUsername Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"username" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
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 :: Text -> m CredSshInteractive
credSshInteractiveNew Text
username = IO CredSshInteractive -> m CredSshInteractive
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CredSshInteractive -> m CredSshInteractive)
-> IO CredSshInteractive -> m CredSshInteractive
forall a b. (a -> b) -> a -> b
$ do
CString
username' <- Text -> IO CString
textToCString Text
username
IO CredSshInteractive -> IO () -> IO CredSshInteractive
forall a b. IO a -> IO b -> IO a
onException (do
Ptr CredSshInteractive
result <- (Ptr (Ptr GError) -> IO (Ptr CredSshInteractive))
-> IO (Ptr CredSshInteractive)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr CredSshInteractive))
-> IO (Ptr CredSshInteractive))
-> (Ptr (Ptr GError) -> IO (Ptr CredSshInteractive))
-> IO (Ptr CredSshInteractive)
forall a b. (a -> b) -> a -> b
$ CString -> Ptr (Ptr GError) -> IO (Ptr CredSshInteractive)
ggit_cred_ssh_interactive_new CString
username'
Text -> Ptr CredSshInteractive -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"credSshInteractiveNew" Ptr CredSshInteractive
result
CredSshInteractive
result' <- ((ManagedPtr CredSshInteractive -> CredSshInteractive)
-> Ptr CredSshInteractive -> IO CredSshInteractive
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CredSshInteractive -> CredSshInteractive
CredSshInteractive) Ptr CredSshInteractive
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
username'
CredSshInteractive -> IO CredSshInteractive
forall (m :: * -> *) a. Monad m => a -> m a
return CredSshInteractive
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
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 :: a -> m Text
credSshInteractiveGetUsername a
cred = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr CredSshInteractive
cred' <- a -> IO (Ptr CredSshInteractive)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cred
CString
result <- Ptr CredSshInteractive -> IO CString
ggit_cred_ssh_interactive_get_username Ptr CredSshInteractive
cred'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"credSshInteractiveGetUsername" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cred
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
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