{-# 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 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
newtype GpgVerifyResult = GpgVerifyResult (SP.ManagedPtr GpgVerifyResult)
deriving (GpgVerifyResult -> GpgVerifyResult -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GpgVerifyResult -> GpgVerifyResult -> Bool
$c/= :: GpgVerifyResult -> GpgVerifyResult -> Bool
== :: GpgVerifyResult -> GpgVerifyResult -> Bool
$c== :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. 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 = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr GpgVerifyResult)
gvalueSet_ Ptr GValue
gv (P.Just GpgVerifyResult
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GpgVerifyResult
obj (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 GpgVerifyResult
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GpgVerifyResult)
if Ptr GpgVerifyResult
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GpgVerifyResult -> GpgVerifyResult
GpgVerifyResult Ptr GpgVerifyResult
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
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_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Word32
result <- Ptr GpgVerifyResult -> IO Word32
ostree_gpg_verify_result_count_all Ptr GpgVerifyResult
result_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
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.16/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_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Word32
result <- Ptr GpgVerifyResult -> IO Word32
ostree_gpg_verify_result_count_valid Ptr GpgVerifyResult
result_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
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.16/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Ptr String
outputBuffer' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
outputBuffer
Ptr CChar
maybeLinePrefix <- case Maybe Text
linePrefix of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jLinePrefix -> do
Ptr CChar
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLinePrefix'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GpgSignatureFormatFlags]
flags
Ptr GpgVerifyResult
-> Word32 -> Ptr String -> Ptr CChar -> CUInt -> IO ()
ostree_gpg_verify_result_describe Ptr GpgVerifyResult
result_' Word32
signatureIndex Ptr String
outputBuffer' Ptr CChar
maybeLinePrefix CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
outputBuffer
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLinePrefix
forall (m :: * -> *) a. Monad m => a -> m a
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.16/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let nAttrs :: Word32
nAttrs = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [GpgSignatureAttr]
attrs
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
let attrs' :: [CUInt]
attrs' = forall a b. (a -> b) -> [a] -> [b]
map (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) [GpgSignatureAttr]
attrs
Ptr CUInt
attrs'' <- forall a. Storable a => [a] -> IO (Ptr a)
packStorableArray [CUInt]
attrs'
Ptr GVariant
result <- Ptr GpgVerifyResult
-> Word32 -> Ptr CUInt -> Word32 -> IO (Ptr GVariant)
ostree_gpg_verify_result_get Ptr GpgVerifyResult
result_' Word32
signatureIndex Ptr CUInt
attrs'' Word32
nAttrs
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gpgVerifyResultGet" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
attrs''
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
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.16/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Ptr GVariant
result <- Ptr GpgVerifyResult -> Word32 -> IO (Ptr GVariant)
ostree_gpg_verify_result_get_all Ptr GpgVerifyResult
result_' Word32
signatureIndex
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gpgVerifyResultGetAll" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
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.16/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Ptr CChar
keyId' <- Text -> IO (Ptr CChar)
textToCString Text
keyId
Ptr Word32
outSignatureIndex <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
CInt
result <- Ptr GpgVerifyResult -> Ptr CChar -> Ptr Word32 -> IO CInt
ostree_gpg_verify_result_lookup Ptr GpgVerifyResult
result_' Ptr CChar
keyId' Ptr Word32
outSignatureIndex
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word32
outSignatureIndex' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
outSignatureIndex
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall a. Ptr a -> IO ()
freeMem Ptr CChar
keyId'
forall a. Ptr a -> IO ()
freeMem Ptr Word32
outSignatureIndex
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word32
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.16/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) =>
a
-> m ()
gpgVerifyResultRequireValidSignature :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGpgVerifyResult a) =>
a -> m ()
gpgVerifyResultRequireValidSignature a
result_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GpgVerifyResult
result_' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError forall a b. (a -> b) -> a -> b
$ Ptr GpgVerifyResult -> Ptr (Ptr GError) -> IO CInt
ostree_gpg_verify_result_require_valid_signature Ptr GpgVerifyResult
result_'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data GpgVerifyResultRequireValidSignatureMethodInfo
instance (signature ~ (m ()), MonadIO m, IsGpgVerifyResult a) => O.OverloadedMethod GpgVerifyResultRequireValidSignatureMethodInfo a signature where
overloadedMethod = gpgVerifyResultRequireValidSignature
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.16/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr GVariant
variant' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
Ptr String
outputBuffer' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
outputBuffer
Ptr CChar
maybeLinePrefix <- case Maybe Text
linePrefix of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jLinePrefix -> do
Ptr CChar
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLinePrefix'
let flags' :: CUInt
flags' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [GpgSignatureFormatFlags]
flags
Ptr GVariant -> Ptr String -> Ptr CChar -> CUInt -> IO ()
ostree_gpg_verify_result_describe_variant Ptr GVariant
variant' Ptr String
outputBuffer' Ptr CChar
maybeLinePrefix CUInt
flags'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
variant
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
outputBuffer
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLinePrefix
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif