#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Interfaces.TlsFileDatabase
(
TlsFileDatabase(..) ,
noTlsFileDatabase ,
IsTlsFileDatabase ,
toTlsFileDatabase ,
tlsFileDatabaseNew ,
#if ENABLE_OVERLOADING
TlsFileDatabaseAnchorsPropertyInfo ,
#endif
clearTlsFileDatabaseAnchors ,
constructTlsFileDatabaseAnchors ,
getTlsFileDatabaseAnchors ,
setTlsFileDatabaseAnchors ,
#if ENABLE_OVERLOADING
tlsFileDatabaseAnchors ,
#endif
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase
newtype TlsFileDatabase = TlsFileDatabase (ManagedPtr TlsFileDatabase)
noTlsFileDatabase :: Maybe TlsFileDatabase
noTlsFileDatabase :: Maybe TlsFileDatabase
noTlsFileDatabase = Maybe TlsFileDatabase
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type instance O.SignalList TlsFileDatabase = TlsFileDatabaseSignalList
type TlsFileDatabaseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_tls_file_database_get_type"
c_g_tls_file_database_get_type :: IO GType
instance GObject TlsFileDatabase where
gobjectType :: TlsFileDatabase -> IO GType
gobjectType _ = IO GType
c_g_tls_file_database_get_type
class GObject o => IsTlsFileDatabase o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError TlsFileDatabase a) =>
IsTlsFileDatabase a
#endif
instance IsTlsFileDatabase TlsFileDatabase
instance GObject.Object.IsObject TlsFileDatabase
instance Gio.TlsDatabase.IsTlsDatabase TlsFileDatabase
toTlsFileDatabase :: (MonadIO m, IsTlsFileDatabase o) => o -> m TlsFileDatabase
toTlsFileDatabase :: o -> m TlsFileDatabase
toTlsFileDatabase = IO TlsFileDatabase -> m TlsFileDatabase
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsFileDatabase -> m TlsFileDatabase)
-> (o -> IO TlsFileDatabase) -> o -> m TlsFileDatabase
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TlsFileDatabase -> TlsFileDatabase)
-> o -> IO TlsFileDatabase
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TlsFileDatabase -> TlsFileDatabase
TlsFileDatabase
getTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> m (Maybe T.Text)
getTlsFileDatabaseAnchors :: o -> m (Maybe Text)
getTlsFileDatabaseAnchors obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
getObjectPropertyString o
obj "anchors"
setTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> T.Text -> m ()
setTlsFileDatabaseAnchors :: o -> Text -> m ()
setTlsFileDatabaseAnchors obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
setObjectPropertyString o
obj "anchors" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTlsFileDatabaseAnchors :: (IsTlsFileDatabase o) => T.Text -> IO (GValueConstruct o)
constructTlsFileDatabaseAnchors :: Text -> IO (GValueConstruct o)
constructTlsFileDatabaseAnchors val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
constructObjectPropertyString "anchors" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> m ()
clearTlsFileDatabaseAnchors :: o -> m ()
clearTlsFileDatabaseAnchors obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
setObjectPropertyString o
obj "anchors" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data TlsFileDatabaseAnchorsPropertyInfo
instance AttrInfo TlsFileDatabaseAnchorsPropertyInfo where
type AttrAllowedOps TlsFileDatabaseAnchorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = IsTlsFileDatabase
type AttrGetType TlsFileDatabaseAnchorsPropertyInfo = (Maybe T.Text)
type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "anchors"
type AttrOrigin TlsFileDatabaseAnchorsPropertyInfo = TlsFileDatabase
attrGet _ = getTlsFileDatabaseAnchors
attrSet _ = setTlsFileDatabaseAnchors
attrConstruct _ = constructTlsFileDatabaseAnchors
attrClear _ = clearTlsFileDatabaseAnchors
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList TlsFileDatabase
type instance O.AttributeList TlsFileDatabase = TlsFileDatabaseAttributeList
type TlsFileDatabaseAttributeList = ('[ '("anchors", TlsFileDatabaseAnchorsPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
tlsFileDatabaseAnchors :: AttrLabelProxy "anchors"
tlsFileDatabaseAnchors = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type family ResolveTlsFileDatabaseMethod (t :: Symbol) (o :: *) :: * where
ResolveTlsFileDatabaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTlsFileDatabaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTlsFileDatabaseMethod "createCertificateHandle" o = Gio.TlsDatabase.TlsDatabaseCreateCertificateHandleMethodInfo
ResolveTlsFileDatabaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTlsFileDatabaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTlsFileDatabaseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTlsFileDatabaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateForHandle" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateForHandleAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleAsyncMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateForHandleFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleFinishMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateIssuer" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateIssuerAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerAsyncMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificateIssuerFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerFinishMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedBy" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo
ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo
ResolveTlsFileDatabaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTlsFileDatabaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTlsFileDatabaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTlsFileDatabaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTlsFileDatabaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTlsFileDatabaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTlsFileDatabaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTlsFileDatabaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTlsFileDatabaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTlsFileDatabaseMethod "verifyChain" o = Gio.TlsDatabase.TlsDatabaseVerifyChainMethodInfo
ResolveTlsFileDatabaseMethod "verifyChainAsync" o = Gio.TlsDatabase.TlsDatabaseVerifyChainAsyncMethodInfo
ResolveTlsFileDatabaseMethod "verifyChainFinish" o = Gio.TlsDatabase.TlsDatabaseVerifyChainFinishMethodInfo
ResolveTlsFileDatabaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTlsFileDatabaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTlsFileDatabaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTlsFileDatabaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTlsFileDatabaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTlsFileDatabaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTlsFileDatabaseMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, O.MethodInfo info TlsFileDatabase p) => O.IsLabelProxy t (TlsFileDatabase -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, O.MethodInfo info TlsFileDatabase p) => O.IsLabel t (TlsFileDatabase -> 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
#endif
foreign import ccall "g_tls_file_database_new" g_tls_file_database_new ::
CString ->
Ptr (Ptr GError) ->
IO (Ptr TlsFileDatabase)
tlsFileDatabaseNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Char]
-> m TlsFileDatabase
tlsFileDatabaseNew :: String -> m TlsFileDatabase
tlsFileDatabaseNew anchors :: String
anchors = IO TlsFileDatabase -> m TlsFileDatabase
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TlsFileDatabase -> m TlsFileDatabase)
-> IO TlsFileDatabase -> m TlsFileDatabase
forall a b. (a -> b) -> a -> b
$ do
CString
anchors' <- String -> IO CString
stringToCString String
anchors
IO TlsFileDatabase -> IO () -> IO TlsFileDatabase
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TlsFileDatabase
result <- (Ptr (Ptr GError) -> IO (Ptr TlsFileDatabase))
-> IO (Ptr TlsFileDatabase)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TlsFileDatabase))
-> IO (Ptr TlsFileDatabase))
-> (Ptr (Ptr GError) -> IO (Ptr TlsFileDatabase))
-> IO (Ptr TlsFileDatabase)
forall a b. (a -> b) -> a -> b
$ CString -> Ptr (Ptr GError) -> IO (Ptr TlsFileDatabase)
g_tls_file_database_new CString
anchors'
Text -> Ptr TlsFileDatabase -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "tlsFileDatabaseNew" Ptr TlsFileDatabase
result
TlsFileDatabase
result' <- ((ManagedPtr TlsFileDatabase -> TlsFileDatabase)
-> Ptr TlsFileDatabase -> IO TlsFileDatabase
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr TlsFileDatabase -> TlsFileDatabase
TlsFileDatabase) Ptr TlsFileDatabase
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
anchors'
TlsFileDatabase -> IO TlsFileDatabase
forall (m :: * -> *) a. Monad m => a -> m a
return TlsFileDatabase
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
anchors'
)
#if ENABLE_OVERLOADING
#endif