{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.OSTree.Structs.RepoTransactionStats
(
RepoTransactionStats(..) ,
newZeroRepoTransactionStats ,
#if defined(ENABLE_OVERLOADING)
ResolveRepoTransactionStatsMethod ,
#endif
getRepoTransactionStatsContentBytesWritten,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_contentBytesWritten,
#endif
setRepoTransactionStatsContentBytesWritten,
getRepoTransactionStatsContentObjectsTotal,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_contentObjectsTotal,
#endif
setRepoTransactionStatsContentObjectsTotal,
getRepoTransactionStatsContentObjectsWritten,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_contentObjectsWritten,
#endif
setRepoTransactionStatsContentObjectsWritten,
getRepoTransactionStatsDevinoCacheHits ,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_devinoCacheHits ,
#endif
setRepoTransactionStatsDevinoCacheHits ,
getRepoTransactionStatsMetadataObjectsTotal,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_metadataObjectsTotal,
#endif
setRepoTransactionStatsMetadataObjectsTotal,
getRepoTransactionStatsMetadataObjectsWritten,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_metadataObjectsWritten,
#endif
setRepoTransactionStatsMetadataObjectsWritten,
getRepoTransactionStatsPadding1 ,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_padding1 ,
#endif
setRepoTransactionStatsPadding1 ,
getRepoTransactionStatsPadding2 ,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_padding2 ,
#endif
setRepoTransactionStatsPadding2 ,
getRepoTransactionStatsPadding3 ,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_padding3 ,
#endif
setRepoTransactionStatsPadding3 ,
getRepoTransactionStatsPadding4 ,
#if defined(ENABLE_OVERLOADING)
repoTransactionStats_padding4 ,
#endif
setRepoTransactionStatsPadding4 ,
) 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
newtype RepoTransactionStats = RepoTransactionStats (SP.ManagedPtr RepoTransactionStats)
deriving (RepoTransactionStats -> RepoTransactionStats -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RepoTransactionStats -> RepoTransactionStats -> Bool
$c/= :: RepoTransactionStats -> RepoTransactionStats -> Bool
== :: RepoTransactionStats -> RepoTransactionStats -> Bool
$c== :: RepoTransactionStats -> RepoTransactionStats -> Bool
Eq)
instance SP.ManagedPtrNewtype RepoTransactionStats where
toManagedPtr :: RepoTransactionStats -> ManagedPtr RepoTransactionStats
toManagedPtr (RepoTransactionStats ManagedPtr RepoTransactionStats
p) = ManagedPtr RepoTransactionStats
p
foreign import ccall "ostree_repo_transaction_stats_get_type" c_ostree_repo_transaction_stats_get_type ::
IO GType
type instance O.ParentTypes RepoTransactionStats = '[]
instance O.HasParentTypes RepoTransactionStats
instance B.Types.TypedObject RepoTransactionStats where
glibType :: IO GType
glibType = IO GType
c_ostree_repo_transaction_stats_get_type
instance B.Types.GBoxed RepoTransactionStats
instance B.GValue.IsGValue (Maybe RepoTransactionStats) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ostree_repo_transaction_stats_get_type
gvalueSet_ :: Ptr GValue -> Maybe RepoTransactionStats -> IO ()
gvalueSet_ Ptr GValue
gv Maybe RepoTransactionStats
P.Nothing = forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr RepoTransactionStats)
gvalueSet_ Ptr GValue
gv (P.Just RepoTransactionStats
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RepoTransactionStats
obj (forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe RepoTransactionStats)
gvalueGet_ Ptr GValue
gv = do
Ptr RepoTransactionStats
ptr <- forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr RepoTransactionStats)
if Ptr RepoTransactionStats
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.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr RepoTransactionStats -> RepoTransactionStats
RepoTransactionStats Ptr RepoTransactionStats
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
newZeroRepoTransactionStats :: MonadIO m => m RepoTransactionStats
newZeroRepoTransactionStats :: forall (m :: * -> *). MonadIO m => m RepoTransactionStats
newZeroRepoTransactionStats = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
56 forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RepoTransactionStats -> RepoTransactionStats
RepoTransactionStats
instance tag ~ 'AttrSet => Constructible RepoTransactionStats tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr RepoTransactionStats -> RepoTransactionStats)
-> [AttrOp RepoTransactionStats tag] -> m RepoTransactionStats
new ManagedPtr RepoTransactionStats -> RepoTransactionStats
_ [AttrOp RepoTransactionStats tag]
attrs = do
RepoTransactionStats
o <- forall (m :: * -> *). MonadIO m => m RepoTransactionStats
newZeroRepoTransactionStats
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set RepoTransactionStats
o [AttrOp RepoTransactionStats tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return RepoTransactionStats
o
getRepoTransactionStatsMetadataObjectsTotal :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsMetadataObjectsTotal :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsMetadataObjectsTotal RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsMetadataObjectsTotal :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsMetadataObjectsTotal :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsMetadataObjectsTotal RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsMetadataObjectsTotalFieldInfo
instance AttrInfo RepoTransactionStatsMetadataObjectsTotalFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsMetadataObjectsTotalFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsMetadataObjectsTotalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsMetadataObjectsTotalFieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsMetadataObjectsTotalFieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsMetadataObjectsTotalFieldInfo = Word32
type AttrGetType RepoTransactionStatsMetadataObjectsTotalFieldInfo = Word32
type AttrLabel RepoTransactionStatsMetadataObjectsTotalFieldInfo = "metadata_objects_total"
type AttrOrigin RepoTransactionStatsMetadataObjectsTotalFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsMetadataObjectsTotal
attrSet = setRepoTransactionStatsMetadataObjectsTotal
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.metadataObjectsTotal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:metadataObjectsTotal"
})
repoTransactionStats_metadataObjectsTotal :: AttrLabelProxy "metadataObjectsTotal"
repoTransactionStats_metadataObjectsTotal = AttrLabelProxy
#endif
getRepoTransactionStatsMetadataObjectsWritten :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsMetadataObjectsWritten :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsMetadataObjectsWritten RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsMetadataObjectsWritten :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsMetadataObjectsWritten :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsMetadataObjectsWritten RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsMetadataObjectsWrittenFieldInfo
instance AttrInfo RepoTransactionStatsMetadataObjectsWrittenFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsMetadataObjectsWrittenFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsMetadataObjectsWrittenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsMetadataObjectsWrittenFieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsMetadataObjectsWrittenFieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsMetadataObjectsWrittenFieldInfo = Word32
type AttrGetType RepoTransactionStatsMetadataObjectsWrittenFieldInfo = Word32
type AttrLabel RepoTransactionStatsMetadataObjectsWrittenFieldInfo = "metadata_objects_written"
type AttrOrigin RepoTransactionStatsMetadataObjectsWrittenFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsMetadataObjectsWritten
attrSet = setRepoTransactionStatsMetadataObjectsWritten
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.metadataObjectsWritten"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:metadataObjectsWritten"
})
repoTransactionStats_metadataObjectsWritten :: AttrLabelProxy "metadataObjectsWritten"
repoTransactionStats_metadataObjectsWritten = AttrLabelProxy
#endif
getRepoTransactionStatsContentObjectsTotal :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsContentObjectsTotal :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsContentObjectsTotal RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsContentObjectsTotal :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsContentObjectsTotal :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsContentObjectsTotal RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsContentObjectsTotalFieldInfo
instance AttrInfo RepoTransactionStatsContentObjectsTotalFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsContentObjectsTotalFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsContentObjectsTotalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsContentObjectsTotalFieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsContentObjectsTotalFieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsContentObjectsTotalFieldInfo = Word32
type AttrGetType RepoTransactionStatsContentObjectsTotalFieldInfo = Word32
type AttrLabel RepoTransactionStatsContentObjectsTotalFieldInfo = "content_objects_total"
type AttrOrigin RepoTransactionStatsContentObjectsTotalFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsContentObjectsTotal
attrSet = setRepoTransactionStatsContentObjectsTotal
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.contentObjectsTotal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:contentObjectsTotal"
})
repoTransactionStats_contentObjectsTotal :: AttrLabelProxy "contentObjectsTotal"
repoTransactionStats_contentObjectsTotal = AttrLabelProxy
#endif
getRepoTransactionStatsContentObjectsWritten :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsContentObjectsWritten :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsContentObjectsWritten RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsContentObjectsWritten :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsContentObjectsWritten :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsContentObjectsWritten RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsContentObjectsWrittenFieldInfo
instance AttrInfo RepoTransactionStatsContentObjectsWrittenFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsContentObjectsWrittenFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsContentObjectsWrittenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsContentObjectsWrittenFieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsContentObjectsWrittenFieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsContentObjectsWrittenFieldInfo = Word32
type AttrGetType RepoTransactionStatsContentObjectsWrittenFieldInfo = Word32
type AttrLabel RepoTransactionStatsContentObjectsWrittenFieldInfo = "content_objects_written"
type AttrOrigin RepoTransactionStatsContentObjectsWrittenFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsContentObjectsWritten
attrSet = setRepoTransactionStatsContentObjectsWritten
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.contentObjectsWritten"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:contentObjectsWritten"
})
repoTransactionStats_contentObjectsWritten :: AttrLabelProxy "contentObjectsWritten"
repoTransactionStats_contentObjectsWritten = AttrLabelProxy
#endif
getRepoTransactionStatsContentBytesWritten :: MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsContentBytesWritten :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsContentBytesWritten RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word64
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
val
setRepoTransactionStatsContentBytesWritten :: MonadIO m => RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsContentBytesWritten :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsContentBytesWritten RepoTransactionStats
s Word64
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Word64
val :: Word64)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsContentBytesWrittenFieldInfo
instance AttrInfo RepoTransactionStatsContentBytesWrittenFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsContentBytesWrittenFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsContentBytesWrittenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsContentBytesWrittenFieldInfo = (~) Word64
type AttrTransferTypeConstraint RepoTransactionStatsContentBytesWrittenFieldInfo = (~)Word64
type AttrTransferType RepoTransactionStatsContentBytesWrittenFieldInfo = Word64
type AttrGetType RepoTransactionStatsContentBytesWrittenFieldInfo = Word64
type AttrLabel RepoTransactionStatsContentBytesWrittenFieldInfo = "content_bytes_written"
type AttrOrigin RepoTransactionStatsContentBytesWrittenFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsContentBytesWritten
attrSet = setRepoTransactionStatsContentBytesWritten
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.contentBytesWritten"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:contentBytesWritten"
})
repoTransactionStats_contentBytesWritten :: AttrLabelProxy "contentBytesWritten"
repoTransactionStats_contentBytesWritten = AttrLabelProxy
#endif
getRepoTransactionStatsDevinoCacheHits :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsDevinoCacheHits :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsDevinoCacheHits RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsDevinoCacheHits :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsDevinoCacheHits :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsDevinoCacheHits RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsDevinoCacheHitsFieldInfo
instance AttrInfo RepoTransactionStatsDevinoCacheHitsFieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsDevinoCacheHitsFieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsDevinoCacheHitsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsDevinoCacheHitsFieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsDevinoCacheHitsFieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsDevinoCacheHitsFieldInfo = Word32
type AttrGetType RepoTransactionStatsDevinoCacheHitsFieldInfo = Word32
type AttrLabel RepoTransactionStatsDevinoCacheHitsFieldInfo = "devino_cache_hits"
type AttrOrigin RepoTransactionStatsDevinoCacheHitsFieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsDevinoCacheHits
attrSet = setRepoTransactionStatsDevinoCacheHits
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.devinoCacheHits"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:devinoCacheHits"
})
repoTransactionStats_devinoCacheHits :: AttrLabelProxy "devinoCacheHits"
repoTransactionStats_devinoCacheHits = AttrLabelProxy
#endif
getRepoTransactionStatsPadding1 :: MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsPadding1 :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word32
getRepoTransactionStatsPadding1 RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setRepoTransactionStatsPadding1 :: MonadIO m => RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsPadding1 :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word32 -> m ()
setRepoTransactionStatsPadding1 RepoTransactionStats
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsPadding1FieldInfo
instance AttrInfo RepoTransactionStatsPadding1FieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsPadding1FieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsPadding1FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsPadding1FieldInfo = (~) Word32
type AttrTransferTypeConstraint RepoTransactionStatsPadding1FieldInfo = (~)Word32
type AttrTransferType RepoTransactionStatsPadding1FieldInfo = Word32
type AttrGetType RepoTransactionStatsPadding1FieldInfo = Word32
type AttrLabel RepoTransactionStatsPadding1FieldInfo = "padding1"
type AttrOrigin RepoTransactionStatsPadding1FieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsPadding1
attrSet = setRepoTransactionStatsPadding1
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.padding1"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:padding1"
})
repoTransactionStats_padding1 :: AttrLabelProxy "padding1"
repoTransactionStats_padding1 = AttrLabelProxy
#endif
getRepoTransactionStatsPadding2 :: MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding2 :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding2 RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word64
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
val
setRepoTransactionStatsPadding2 :: MonadIO m => RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding2 :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding2 RepoTransactionStats
s Word64
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (Word64
val :: Word64)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsPadding2FieldInfo
instance AttrInfo RepoTransactionStatsPadding2FieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsPadding2FieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsPadding2FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsPadding2FieldInfo = (~) Word64
type AttrTransferTypeConstraint RepoTransactionStatsPadding2FieldInfo = (~)Word64
type AttrTransferType RepoTransactionStatsPadding2FieldInfo = Word64
type AttrGetType RepoTransactionStatsPadding2FieldInfo = Word64
type AttrLabel RepoTransactionStatsPadding2FieldInfo = "padding2"
type AttrOrigin RepoTransactionStatsPadding2FieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsPadding2
attrSet = setRepoTransactionStatsPadding2
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.padding2"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:padding2"
})
repoTransactionStats_padding2 :: AttrLabelProxy "padding2"
repoTransactionStats_padding2 = AttrLabelProxy
#endif
getRepoTransactionStatsPadding3 :: MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding3 :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding3 RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word64
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
val
setRepoTransactionStatsPadding3 :: MonadIO m => RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding3 :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding3 RepoTransactionStats
s Word64
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Word64
val :: Word64)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsPadding3FieldInfo
instance AttrInfo RepoTransactionStatsPadding3FieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsPadding3FieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsPadding3FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsPadding3FieldInfo = (~) Word64
type AttrTransferTypeConstraint RepoTransactionStatsPadding3FieldInfo = (~)Word64
type AttrTransferType RepoTransactionStatsPadding3FieldInfo = Word64
type AttrGetType RepoTransactionStatsPadding3FieldInfo = Word64
type AttrLabel RepoTransactionStatsPadding3FieldInfo = "padding3"
type AttrOrigin RepoTransactionStatsPadding3FieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsPadding3
attrSet = setRepoTransactionStatsPadding3
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.padding3"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:padding3"
})
repoTransactionStats_padding3 :: AttrLabelProxy "padding3"
repoTransactionStats_padding3 = AttrLabelProxy
#endif
getRepoTransactionStatsPadding4 :: MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding4 :: forall (m :: * -> *). MonadIO m => RepoTransactionStats -> m Word64
getRepoTransactionStatsPadding4 RepoTransactionStats
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
Word64
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
val
setRepoTransactionStatsPadding4 :: MonadIO m => RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding4 :: forall (m :: * -> *).
MonadIO m =>
RepoTransactionStats -> Word64 -> m ()
setRepoTransactionStatsPadding4 RepoTransactionStats
s Word64
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RepoTransactionStats
s forall a b. (a -> b) -> a -> b
$ \Ptr RepoTransactionStats
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RepoTransactionStats
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Word64
val :: Word64)
#if defined(ENABLE_OVERLOADING)
data RepoTransactionStatsPadding4FieldInfo
instance AttrInfo RepoTransactionStatsPadding4FieldInfo where
type AttrBaseTypeConstraint RepoTransactionStatsPadding4FieldInfo = (~) RepoTransactionStats
type AttrAllowedOps RepoTransactionStatsPadding4FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoTransactionStatsPadding4FieldInfo = (~) Word64
type AttrTransferTypeConstraint RepoTransactionStatsPadding4FieldInfo = (~)Word64
type AttrTransferType RepoTransactionStatsPadding4FieldInfo = Word64
type AttrGetType RepoTransactionStatsPadding4FieldInfo = Word64
type AttrLabel RepoTransactionStatsPadding4FieldInfo = "padding4"
type AttrOrigin RepoTransactionStatsPadding4FieldInfo = RepoTransactionStats
attrGet = getRepoTransactionStatsPadding4
attrSet = setRepoTransactionStatsPadding4
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.OSTree.Structs.RepoTransactionStats.padding4"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ostree-1.0.16/docs/GI-OSTree-Structs-RepoTransactionStats.html#g:attr:padding4"
})
repoTransactionStats_padding4 :: AttrLabelProxy "padding4"
repoTransactionStats_padding4 = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RepoTransactionStats
type instance O.AttributeList RepoTransactionStats = RepoTransactionStatsAttributeList
type RepoTransactionStatsAttributeList = ('[ '("metadataObjectsTotal", RepoTransactionStatsMetadataObjectsTotalFieldInfo), '("metadataObjectsWritten", RepoTransactionStatsMetadataObjectsWrittenFieldInfo), '("contentObjectsTotal", RepoTransactionStatsContentObjectsTotalFieldInfo), '("contentObjectsWritten", RepoTransactionStatsContentObjectsWrittenFieldInfo), '("contentBytesWritten", RepoTransactionStatsContentBytesWrittenFieldInfo), '("devinoCacheHits", RepoTransactionStatsDevinoCacheHitsFieldInfo), '("padding1", RepoTransactionStatsPadding1FieldInfo), '("padding2", RepoTransactionStatsPadding2FieldInfo), '("padding3", RepoTransactionStatsPadding3FieldInfo), '("padding4", RepoTransactionStatsPadding4FieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRepoTransactionStatsMethod (t :: Symbol) (o :: *) :: * where
ResolveRepoTransactionStatsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRepoTransactionStatsMethod t RepoTransactionStats, O.OverloadedMethod info RepoTransactionStats p) => OL.IsLabel t (RepoTransactionStats -> 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 ~ ResolveRepoTransactionStatsMethod t RepoTransactionStats, O.OverloadedMethod info RepoTransactionStats p, R.HasField t RepoTransactionStats p) => R.HasField t RepoTransactionStats p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRepoTransactionStatsMethod t RepoTransactionStats, O.OverloadedMethodInfo info RepoTransactionStats) => OL.IsLabel t (O.MethodProxy info RepoTransactionStats) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif