{-# 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.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
(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 GpgVerifyResult
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 GpgVerifyResult
ptr Ptr GpgVerifyResult -> Ptr GpgVerifyResult -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GpgVerifyResult
forall a. Ptr a
FP.nullPtr
then GpgVerifyResult -> Maybe GpgVerifyResult
forall a. a -> Maybe a
P.Just (GpgVerifyResult -> Maybe GpgVerifyResult)
-> IO GpgVerifyResult -> IO (Maybe GpgVerifyResult)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GpgVerifyResult -> GpgVerifyResult)
-> Ptr GpgVerifyResult -> IO GpgVerifyResult
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 Maybe GpgVerifyResult -> IO (Maybe GpgVerifyResult)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GpgVerifyResult
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGpgVerifyResultMethod (t :: Symbol) (o :: *) :: * 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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GpgVerifyResult = GpgVerifyResultSignalList
type GpgVerifyResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
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_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
Word32 -> IO Word32
forall a. a -> IO a
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_ = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
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_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
Word32 -> IO Word32
forall a. a -> IO a
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 = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
Ptr String
outputBuffer' <- String -> IO (Ptr String)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
outputBuffer
Ptr CChar
maybeLinePrefix <- case Maybe Text
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
nullPtr
Just Text
jLinePrefix -> do
Ptr CChar
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLinePrefix'
let flags' :: CUInt
flags' = [GpgSignatureFormatFlags] -> CUInt
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
String -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
outputBuffer
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLinePrefix
() -> IO ()
forall a. a -> IO a
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 = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
let attrs' :: [CUInt]
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
Ptr CUInt
attrs'' <- [CUInt] -> IO (Ptr CUInt)
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
Text -> Ptr GVariant -> IO ()
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
attrs''
GVariant -> IO GVariant
forall a. a -> IO a
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 = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
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
Text -> Ptr GVariant -> IO ()
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
GVariant -> IO GVariant
forall a. a -> IO a
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 = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
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 <- IO (Ptr Word32)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word32
outSignatureIndex' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
outSignatureIndex
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
keyId'
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
outSignatureIndex
(Bool, Word32) -> IO (Bool, Word32)
forall a. a -> IO a
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_ = 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
Ptr GpgVerifyResult
result_' <- a -> IO (Ptr GpgVerifyResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
result_
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr GpgVerifyResult -> Ptr (Ptr GError) -> IO CInt
ostree_gpg_verify_result_require_valid_signature Ptr GpgVerifyResult
result_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
result_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
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 = 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
Ptr GVariant
variant' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
variant
Ptr String
outputBuffer' <- String -> IO (Ptr String)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr String
outputBuffer
Ptr CChar
maybeLinePrefix <- case Maybe Text
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
nullPtr
Just Text
jLinePrefix -> do
Ptr CChar
jLinePrefix' <- Text -> IO (Ptr CChar)
textToCString Text
jLinePrefix
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLinePrefix'
let flags' :: CUInt
flags' = [GpgSignatureFormatFlags] -> CUInt
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'
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
variant
String -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr String
outputBuffer
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLinePrefix
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif