{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.OSTree.Objects.GpgVerifyResult
(
GpgVerifyResult(..) ,
IsGpgVerifyResult ,
toGpgVerifyResult ,
#if defined(ENABLE_OVERLOADING)
ResolveGpgVerifyResultMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultCountAllMethodInfo ,
#endif
gpgVerifyResultCountAll ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultCountValidMethodInfo ,
#endif
gpgVerifyResultCountValid ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultDescribeMethodInfo ,
#endif
gpgVerifyResultDescribe ,
gpgVerifyResultDescribeVariant ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultGetMethodInfo ,
#endif
gpgVerifyResultGet ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultGetAllMethodInfo ,
#endif
gpgVerifyResultGetAll ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultLookupMethodInfo ,
#endif
gpgVerifyResultLookup ,
#if defined(ENABLE_OVERLOADING)
GpgVerifyResultRequireValidSignatureMethodInfo,
#endif
gpgVerifyResultRequireValidSignature ,
) 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums
import {-# SOURCE #-} qualified GI.OSTree.Flags as OSTree.Flags
#else
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums
import {-# SOURCE #-} qualified GI.OSTree.Flags as OSTree.Flags
#endif
newtype GpgVerifyResult = GpgVerifyResult (SP.ManagedPtr GpgVerifyResult)
deriving (GpgVerifyResult -> GpgVerifyResult -> Bool
(GpgVerifyResult -> GpgVerifyResult -> Bool)
-> (GpgVerifyResult -> GpgVerifyResult -> Bool)
-> Eq GpgVerifyResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GpgVerifyResult -> GpgVerifyResult -> Bool
== :: GpgVerifyResult -> GpgVerifyResult -> Bool
$c/= :: GpgVerifyResult -> GpgVerifyResult -> Bool
/= :: GpgVerifyResult -> GpgVerifyResult -> Bool
Eq)
instance SP.ManagedPtrNewtype GpgVerifyResult where
toManagedPtr :: GpgVerifyResult -> ManagedPtr GpgVerifyResult
toManagedPtr (GpgVerifyResult ManagedPtr GpgVerifyResult
p) = ManagedPtr GpgVerifyResult
p
foreign import ccall "ostree_gpg_verify_result_get_type"
c_ostree_gpg_verify_result_get_type :: IO B.Types.GType
instance B.Types.TypedObject GpgVerifyResult where
glibType :: IO GType
glibType = IO GType
c_ostree_gpg_verify_result_get_type
instance B.Types.GObject GpgVerifyResult
class (SP.GObject o, O.IsDescendantOf GpgVerifyResult o) => IsGpgVerifyResult o
instance (SP.GObject o, O.IsDescendantOf GpgVerifyResult o) => IsGpgVerifyResult o
instance O.HasParentTypes GpgVerifyResult
type instance O.ParentTypes GpgVerifyResult = '[GObject.Object.Object, Gio.Initable.Initable]
toGpgVerifyResult :: (MIO.MonadIO m, IsGpgVerifyResult o) => o -> m GpgVerifyResult
toGpgVerifyResult :: forall (m :: * -> *) o.
(MonadIO m, IsGpgVerifyResult o) =>
o -> m GpgVerifyResult
toGpgVerifyResult = IO GpgVerifyResult -> m GpgVerifyResult
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GpgVerifyResult -> m GpgVerifyResult)
-> (o -> IO GpgVerifyResult) -> o -> m GpgVerifyResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GpgVerifyResult -> GpgVerifyResult)
-> o -> IO GpgVerifyResult
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GpgVerifyResult -> GpgVerifyResult
GpgVerifyResult
instance B.GValue.IsGValue (Maybe GpgVerifyResult) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ostree_gpg_verify_result_get_type
gvalueSet_ :: Ptr GValue -> Maybe GpgVerifyResult -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GpgVerifyResult
P.Nothing = Ptr GValue -> Ptr GpgVerifyResult -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GpgVerifyResult
forall a. Ptr a
FP.nullPtr :: FP.Ptr GpgVerifyResult)
gvalueSet_ Ptr GValue
gv (P.Just GpgVerifyResult
obj) = GpgVerifyResult -> (Ptr GpgVerifyResult -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GpgVerifyResult
obj (Ptr GValue -> Ptr GpgVerifyResult -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GpgVerifyResult)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr GpgVerifyResult)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GpgVerifyResult)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject GpgVerifyResult ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGpgVerifyResultMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveGpgVerifyResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGpgVerifyResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGpgVerifyResultMethod "countAll" o = GpgVerifyResultCountAllMethodInfo
ResolveGpgVerifyResultMethod "countValid" o = GpgVerifyResultCountValidMethodInfo
ResolveGpgVerifyResultMethod "describe" o = GpgVerifyResultDescribeMethodInfo
ResolveGpgVerifyResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGpgVerifyResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGpgVerifyResultMethod "get" o = GpgVerifyResultGetMethodInfo
ResolveGpgVerifyResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGpgVerifyResultMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveGpgVerifyResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGpgVerifyResultMethod "lookup" o = GpgVerifyResultLookupMethodInfo
ResolveGpgVerifyResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGpgVerifyResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGpgVerifyResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGpgVerifyResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGpgVerifyResultMethod "requireValidSignature" o = GpgVerifyResultRequireValidSignatureMethodInfo
ResolveGpgVerifyResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGpgVerifyResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGpgVerifyResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGpgVerifyResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGpgVerifyResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGpgVerifyResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGpgVerifyResultMethod "getAll" o = GpgVerifyResultGetAllMethodInfo
ResolveGpgVerifyResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGpgVerifyResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGpgVerifyResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGpgVerifyResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGpgVerifyResultMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGpgVerifyResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGpgVerifyResultMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGpgVerifyResultMethod t GpgVerifyResult, O.OverloadedMethod info GpgVerifyResult p) => OL.IsLabel t (GpgVerifyResult -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveGpgVerifyResultMethod t GpgVerifyResult, O.OverloadedMethod info GpgVerifyResult p, R.HasField t GpgVerifyResult p) => R.HasField t GpgVerifyResult p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGpgVerifyResultMethod t GpgVerifyResult, O.OverloadedMethodInfo info GpgVerifyResult) => OL.IsLabel t (O.MethodProxy info GpgVerifyResult) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GpgVerifyResult
type instance O.AttributeList GpgVerifyResult = GpgVerifyResultAttributeList
type GpgVerifyResultAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GpgVerifyResult = GpgVerifyResultSignalList
type GpgVerifyResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ostree_gpg_verify_result_count_all" ostree_gpg_verify_result_count_all ::
Ptr GpgVerifyResult ->
IO Word32
gpgVerifyResultCountAll ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> m Word32
gpgVerifyResultCountAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> m Word32
gpgVerifyResultCountAll a
result_ = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
result <- ostree_gpg_verify_result_count_all result_'
touchManagedPtr result_
return result
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultCountAllMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultCountAllMethodInfo a signature where
overloadedMethod = gpgVerifyResultCountAll
instance O.OverloadedMethodInfo GpgVerifyResultCountAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultCountAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultCountAll"
})
#endif
foreign import ccall "ostree_gpg_verify_result_count_valid" ostree_gpg_verify_result_count_valid ::
Ptr GpgVerifyResult ->
IO Word32
gpgVerifyResultCountValid ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> m Word32
gpgVerifyResultCountValid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> m Word32
gpgVerifyResultCountValid a
result_ = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
result <- ostree_gpg_verify_result_count_valid result_'
touchManagedPtr result_
return result
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultCountValidMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultCountValidMethodInfo a signature where
overloadedMethod = gpgVerifyResultCountValid
instance O.OverloadedMethodInfo GpgVerifyResultCountValidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultCountValid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultCountValid"
})
#endif
foreign import ccall "ostree_gpg_verify_result_describe" ostree_gpg_verify_result_describe ::
Ptr GpgVerifyResult ->
Word32 ->
Ptr GLib.String.String ->
CString ->
CUInt ->
IO ()
gpgVerifyResultDescribe ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> Word32
-> GLib.String.String
-> Maybe (T.Text)
-> [OSTree.Flags.GpgSignatureFormatFlags]
-> m ()
gpgVerifyResultDescribe :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> Word32
-> String
-> Maybe Text
-> [GpgSignatureFormatFlags]
-> m ()
gpgVerifyResultDescribe a
result_ Word32
signatureIndex String
outputBuffer Maybe Text
linePrefix [GpgSignatureFormatFlags]
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
outputBuffer' <- unsafeManagedPtrGetPtr outputBuffer
maybeLinePrefix <- case linePrefix of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jLinePrefix -> do
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
return jLinePrefix'
let flags' = [GpgSignatureFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GpgSignatureFormatFlags]
flags
ostree_gpg_verify_result_describe result_' signatureIndex outputBuffer' maybeLinePrefix flags'
touchManagedPtr result_
touchManagedPtr outputBuffer
freeMem maybeLinePrefix
return ()
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultDescribeMethodInfo
instance (signature ~ (Word32 -> GLib.String.String -> Maybe (T.Text) -> [OSTree.Flags.GpgSignatureFormatFlags] -> m ()), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultDescribeMethodInfo a signature where
overloadedMethod = gpgVerifyResultDescribe
instance O.OverloadedMethodInfo GpgVerifyResultDescribeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultDescribe",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultDescribe"
})
#endif
foreign import ccall "ostree_gpg_verify_result_get" ostree_gpg_verify_result_get ::
Ptr GpgVerifyResult ->
Word32 ->
Ptr CUInt ->
Word32 ->
IO (Ptr GVariant)
gpgVerifyResultGet ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> Word32
-> [OSTree.Enums.GpgSignatureAttr]
-> m GVariant
gpgVerifyResultGet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> Word32 -> [GpgSignatureAttr] -> m GVariant
gpgVerifyResultGet a
result_ Word32
signatureIndex [GpgSignatureAttr]
attrs = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
let nAttrs :: Word32
nAttrs = Int -> Word32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word32) -> Int -> Word32
forall a b. (a -> b) -> a -> b
$ [GpgSignatureAttr] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [GpgSignatureAttr]
attrs
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
let attrs' = (GpgSignatureAttr -> CUInt) -> [GpgSignatureAttr] -> [CUInt]
forall a b. (a -> b) -> [a] -> [b]
map (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (GpgSignatureAttr -> Int) -> GpgSignatureAttr -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GpgSignatureAttr -> Int
forall a. Enum a => a -> Int
fromEnum) [GpgSignatureAttr]
attrs
attrs'' <- packStorableArray attrs'
result <- ostree_gpg_verify_result_get result_' signatureIndex attrs'' nAttrs
checkUnexpectedReturnNULL "gpgVerifyResultGet" result
result' <- B.GVariant.newGVariantFromPtr result
touchManagedPtr result_
freeMem attrs''
return result'
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultGetMethodInfo
instance (signature ~ (Word32 -> [OSTree.Enums.GpgSignatureAttr] -> m GVariant), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultGetMethodInfo a signature where
overloadedMethod = gpgVerifyResultGet
instance O.OverloadedMethodInfo GpgVerifyResultGetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultGet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultGet"
})
#endif
foreign import ccall "ostree_gpg_verify_result_get_all" ostree_gpg_verify_result_get_all ::
Ptr GpgVerifyResult ->
Word32 ->
IO (Ptr GVariant)
gpgVerifyResultGetAll ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> Word32
-> m GVariant
gpgVerifyResultGetAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> Word32 -> m GVariant
gpgVerifyResultGetAll a
result_ Word32
signatureIndex = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
result <- ostree_gpg_verify_result_get_all result_' signatureIndex
checkUnexpectedReturnNULL "gpgVerifyResultGetAll" result
result' <- B.GVariant.newGVariantFromPtr result
touchManagedPtr result_
return result'
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultGetAllMethodInfo
instance (signature ~ (Word32 -> m GVariant), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultGetAllMethodInfo a signature where
overloadedMethod = gpgVerifyResultGetAll
instance O.OverloadedMethodInfo GpgVerifyResultGetAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultGetAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultGetAll"
})
#endif
foreign import ccall "ostree_gpg_verify_result_lookup" ostree_gpg_verify_result_lookup ::
Ptr GpgVerifyResult ->
CString ->
Ptr Word32 ->
IO CInt
gpgVerifyResultLookup ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a
-> T.Text
-> m ((Bool, Word32))
gpgVerifyResultLookup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> Text -> m (Bool, Word32)
gpgVerifyResultLookup a
result_ Text
keyId = IO (Bool, Word32) -> m (Bool, Word32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Word32) -> m (Bool, Word32))
-> IO (Bool, Word32) -> m (Bool, Word32)
forall a b. (a -> b) -> a -> b
$ do
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
keyId' <- textToCString keyId
outSignatureIndex <- allocMem :: IO (Ptr Word32)
result <- ostree_gpg_verify_result_lookup result_' keyId' outSignatureIndex
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
outSignatureIndex' <- peek outSignatureIndex
touchManagedPtr result_
freeMem keyId'
freeMem outSignatureIndex
return (result', outSignatureIndex')
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultLookupMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Word32))), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultLookupMethodInfo a signature where
overloadedMethod = gpgVerifyResultLookup
instance O.OverloadedMethodInfo GpgVerifyResultLookupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultLookup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultLookup"
})
#endif
foreign import ccall "ostree_gpg_verify_result_require_valid_signature" ostree_gpg_verify_result_require_valid_signature ::
Ptr GpgVerifyResult ->
Ptr (Ptr GError) ->
IO CInt
gpgVerifyResultRequireValidSignature ::
(B.CallStack.HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
Maybe (a)
-> m ()
gpgVerifyResultRequireValidSignature :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
Maybe a -> m ()
gpgVerifyResultRequireValidSignature Maybe a
result_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
maybeResult_ <- case Maybe a
result_ of
Maybe a
Nothing -> Ptr GpgVerifyResult -> IO (Ptr GpgVerifyResult)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GpgVerifyResult
forall a. Ptr a
FP.nullPtr
Just a
jResult_ -> do
jResult_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jResult_
return jResult_'
onException (do
_ <- propagateGError $ ostree_gpg_verify_result_require_valid_signature maybeResult_
whenJust result_ touchManagedPtr
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultRequireValidSignatureMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultRequireValidSignatureMethodInfo a signature where
overloadedMethod i = gpgVerifyResultRequireValidSignature (Just i)
instance O.OverloadedMethodInfo GpgVerifyResultRequireValidSignatureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultRequireValidSignature",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.19/docs/GI-OSTree-Objects-GpgVerifyResult.html#v:gpgVerifyResultRequireValidSignature"
})
#endif
foreign import ccall "ostree_gpg_verify_result_describe_variant" ostree_gpg_verify_result_describe_variant ::
Ptr GVariant ->
Ptr GLib.String.String ->
CString ->
CUInt ->
IO ()
gpgVerifyResultDescribeVariant ::
(B.CallStack.HasCallStack, MonadIO m) =>
GVariant
-> GLib.String.String
-> Maybe (T.Text)
-> [OSTree.Flags.GpgSignatureFormatFlags]
-> m ()
gpgVerifyResultDescribeVariant :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
GVariant
-> String -> Maybe Text -> [GpgSignatureFormatFlags] -> m ()
gpgVerifyResultDescribeVariant GVariant
variant String
outputBuffer Maybe Text
linePrefix [GpgSignatureFormatFlags]
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
variant' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
outputBuffer' <- unsafeManagedPtrGetPtr outputBuffer
maybeLinePrefix <- case linePrefix of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
FP.nullPtr
Just Text
jLinePrefix -> do
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
return jLinePrefix'
let flags' = [GpgSignatureFormatFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GpgSignatureFormatFlags]
flags
ostree_gpg_verify_result_describe_variant variant' outputBuffer' maybeLinePrefix flags'
touchManagedPtr variant
touchManagedPtr outputBuffer
freeMem maybeLinePrefix
return ()
#if defined(ENABLE_OVERLOADING)
#endif