gi-ostree 1.0.6 → 1.0.8

raw patch · 102 files changed

+35125/−10 lines, 102 filesdep ~haskell-gidep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: haskell-gi, haskell-gi-base

API changes (from Hackage documentation)

Files

• ChangeLog.md +8/−0
• GI/OSTree.hs +60/−0
• GI/OSTree/Callbacks.hs +1266/−0
• GI/OSTree/Constants.hs +270/−0
• GI/OSTree/Enums.hs +721/−0
• GI/OSTree/Enums.hs-boot +52/−0
• GI/OSTree/Flags.hs +624/−0
• GI/OSTree/Flags.hs-boot +64/−0
• GI/OSTree/Functions.hs +2456/−0
• GI/OSTree/Interfaces.hs +41/−0
• GI/OSTree/Interfaces/RepoFinder.hs +410/−0
• GI/OSTree/Interfaces/RepoFinder.hs-boot +35/−0
• GI/OSTree/Objects.hs +69/−0
• GI/OSTree/Objects/AsyncProgress.hs +733/−0
• GI/OSTree/Objects/AsyncProgress.hs-boot +59/−0
• GI/OSTree/Objects/BootconfigParser.hs +542/−0
• GI/OSTree/Objects/BootconfigParser.hs-boot +50/−0
• GI/OSTree/Objects/ChecksumInputStream.hs +244/−0
• GI/OSTree/Objects/ChecksumInputStream.hs-boot +32/−0
• GI/OSTree/Objects/Deployment.hs +1084/−0
• GI/OSTree/Objects/Deployment.hs-boot +83/−0
• GI/OSTree/Objects/GpgVerifyResult.hs +584/−0
• GI/OSTree/Objects/GpgVerifyResult.hs-boot +50/−0
• GI/OSTree/Objects/MutableTree.hs +928/−0
• GI/OSTree/Objects/MutableTree.hs-boot +71/−0
• GI/OSTree/Objects/Repo.hs +8588/−0
• GI/OSTree/Objects/Repo.hs-boot +389/−0
• GI/OSTree/Objects/RepoFile.hs +828/−0
• GI/OSTree/Objects/RepoFile.hs-boot +65/−0
• GI/OSTree/Objects/RepoFinderAvahi.hs +280/−0
• GI/OSTree/Objects/RepoFinderAvahi.hs-boot +35/−0
• GI/OSTree/Objects/RepoFinderConfig.hs +161/−0
• GI/OSTree/Objects/RepoFinderConfig.hs-boot +29/−0
• GI/OSTree/Objects/RepoFinderMount.hs +232/−0
• GI/OSTree/Objects/RepoFinderMount.hs-boot +32/−0
• GI/OSTree/Objects/RepoFinderOverride.hs +210/−0
• GI/OSTree/Objects/RepoFinderOverride.hs-boot +32/−0
• GI/OSTree/Objects/SePolicy.hs +720/−0
• GI/OSTree/Objects/SePolicy.hs-boot +53/−0
• GI/OSTree/Objects/Sysroot.hs +2672/−0
• GI/OSTree/Objects/Sysroot.hs-boot +146/−0
• GI/OSTree/Objects/SysrootUpgrader.hs +953/−0
• GI/OSTree/Objects/SysrootUpgrader.hs-boot +59/−0
• GI/OSTree/Structs.hs +93/−0
• GI/OSTree/Structs/Bootloader.hs +77/−0
• GI/OSTree/Structs/Bootloader.hs-boot +26/−0
• GI/OSTree/Structs/BootloaderGrub2.hs +77/−0
• GI/OSTree/Structs/BootloaderGrub2.hs-boot +26/−0
• GI/OSTree/Structs/BootloaderInterface.hs +349/−0
• GI/OSTree/Structs/BootloaderInterface.hs-boot +26/−0
• GI/OSTree/Structs/BootloaderSyslinux.hs +77/−0
• GI/OSTree/Structs/BootloaderSyslinux.hs-boot +26/−0
• GI/OSTree/Structs/BootloaderUboot.hs +77/−0
• GI/OSTree/Structs/BootloaderUboot.hs-boot +26/−0
• GI/OSTree/Structs/CmdPrivateVTable.hs +589/−0
• GI/OSTree/Structs/CmdPrivateVTable.hs-boot +26/−0
• GI/OSTree/Structs/CollectionRef.hs +543/−0
• GI/OSTree/Structs/CollectionRef.hs-boot +32/−0
• GI/OSTree/Structs/DiffDirsOptions.hs +278/−0
• GI/OSTree/Structs/DiffDirsOptions.hs-boot +26/−0
• GI/OSTree/Structs/DiffItem.hs +662/−0
• GI/OSTree/Structs/DiffItem.hs-boot +32/−0
• GI/OSTree/Structs/GpgVerifier.hs +77/−0
• GI/OSTree/Structs/GpgVerifier.hs-boot +26/−0
• GI/OSTree/Structs/LibarchiveInputStream.hs +163/−0
• GI/OSTree/Structs/LibarchiveInputStream.hs-boot +26/−0
• GI/OSTree/Structs/LzmaCompressor.hs +77/−0
• GI/OSTree/Structs/LzmaCompressor.hs-boot +26/−0
• GI/OSTree/Structs/LzmaDecompressor.hs +77/−0
• GI/OSTree/Structs/LzmaDecompressor.hs-boot +26/−0
• GI/OSTree/Structs/MutableTreeIter.hs +192/−0
• GI/OSTree/Structs/MutableTreeIter.hs-boot +26/−0
• GI/OSTree/Structs/Remote.hs +273/−0
• GI/OSTree/Structs/Remote.hs-boot +38/−0
• GI/OSTree/Structs/RepoCheckoutAtOptions.hs +1096/−0
• GI/OSTree/Structs/RepoCheckoutAtOptions.hs-boot +29/−0
• GI/OSTree/Structs/RepoCommitModifier.hs +386/−0
• GI/OSTree/Structs/RepoCommitModifier.hs-boot +41/−0
• GI/OSTree/Structs/RepoCommitTraverseIter.hs +535/−0
• GI/OSTree/Structs/RepoCommitTraverseIter.hs-boot +44/−0
• GI/OSTree/Structs/RepoDevInoCache.hs +202/−0
• GI/OSTree/Structs/RepoDevInoCache.hs-boot +32/−0
• GI/OSTree/Structs/RepoFileEnumerator.hs +77/−0
• GI/OSTree/Structs/RepoFileEnumerator.hs-boot +26/−0
• GI/OSTree/Structs/RepoFinderResult.hs +565/−0
• GI/OSTree/Structs/RepoFinderResult.hs-boot +35/−0
• GI/OSTree/Structs/RepoPruneOptions.hs +226/−0
• GI/OSTree/Structs/RepoPruneOptions.hs-boot +26/−0
• GI/OSTree/Structs/RepoTransactionStats.hs +648/−0
• GI/OSTree/Structs/RepoTransactionStats.hs-boot +26/−0
• GI/OSTree/Structs/RollsumMatches.hs +530/−0
• GI/OSTree/Structs/RollsumMatches.hs-boot +26/−0
• GI/OSTree/Structs/SysrootWriteDeploymentsOpts.hs +151/−0
• GI/OSTree/Structs/SysrootWriteDeploymentsOpts.hs-boot +26/−0
• GI/OSTree/Structs/TlsCertInteraction.hs +77/−0
• GI/OSTree/Structs/TlsCertInteraction.hs-boot +26/−0
• GI/OSTree/Structs/TlsCertInteractionClass.hs +77/−0
• GI/OSTree/Structs/TlsCertInteractionClass.hs-boot +26/−0
• LICENSE +14/−0
• README.md +1/−1
• gi-ostree.cabal +61/−8
• stack.yaml +1/−1

@@ -1,3 +1,11 @@+### 1.0.8+++ Update to haskell-gi(-base) 0.22++### 1.0.7+++ Update stack version to 12.10+ ### 1.0.6  + Remove enable-overloading flags, and use instead explicit CPP checks for 'haskell-gi-overloading-1.0', see [how to disable overloading](https://github.com/haskell-gi/haskell-gi/wiki/Overloading\#disabling-overloading).

@@ -0,0 +1,60 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree+    (     module GI.OSTree.Callbacks              ,+    module GI.OSTree.Constants              ,+    module GI.OSTree.Enums                  ,+    module GI.OSTree.Flags                  ,+    module GI.OSTree.Functions              ,+    module GI.OSTree.Interfaces             ,+    module GI.OSTree.Objects                ,+    module GI.OSTree.Structs                ,++++    module Data.GI.Base                     ,+++    ) where++import GI.OSTree.Callbacks+import GI.OSTree.Constants+import GI.OSTree.Enums+import GI.OSTree.Flags+import GI.OSTree.Functions+import GI.OSTree.Interfaces+import GI.OSTree.Objects+import GI.OSTree.Structs++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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 Data.GI.Base+

@@ -0,0 +1,1266 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Callbacks+    ( ++ -- * Signals+-- ** BootloaderInterfaceGetNameFieldCallback #signal:BootloaderInterfaceGetNameFieldCallback#++    BootloaderInterfaceGetNameFieldCallback ,+    C_BootloaderInterfaceGetNameFieldCallback,+    dynamic_BootloaderInterfaceGetNameFieldCallback,+    genClosure_BootloaderInterfaceGetNameFieldCallback,+    mk_BootloaderInterfaceGetNameFieldCallback,+    noBootloaderInterfaceGetNameFieldCallback,+    wrap_BootloaderInterfaceGetNameFieldCallback,+++-- ** BootloaderInterfaceIsAtomicFieldCallback #signal:BootloaderInterfaceIsAtomicFieldCallback#++    BootloaderInterfaceIsAtomicFieldCallback,+    C_BootloaderInterfaceIsAtomicFieldCallback,+    dynamic_BootloaderInterfaceIsAtomicFieldCallback,+    genClosure_BootloaderInterfaceIsAtomicFieldCallback,+    mk_BootloaderInterfaceIsAtomicFieldCallback,+    noBootloaderInterfaceIsAtomicFieldCallback,+    wrap_BootloaderInterfaceIsAtomicFieldCallback,+++-- ** BootloaderInterfaceQueryFieldCallback #signal:BootloaderInterfaceQueryFieldCallback#++    BootloaderInterfaceQueryFieldCallback   ,+    C_BootloaderInterfaceQueryFieldCallback ,+    dynamic_BootloaderInterfaceQueryFieldCallback,+    mk_BootloaderInterfaceQueryFieldCallback,+    noBootloaderInterfaceQueryFieldCallback ,+++-- ** CmdPrivateVTableOstreeFinalizeStagedFieldCallback #signal:CmdPrivateVTableOstreeFinalizeStagedFieldCallback#++    C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback,+    CmdPrivateVTableOstreeFinalizeStagedFieldCallback,+    dynamic_CmdPrivateVTableOstreeFinalizeStagedFieldCallback,+    mk_CmdPrivateVTableOstreeFinalizeStagedFieldCallback,+    noCmdPrivateVTableOstreeFinalizeStagedFieldCallback,+++-- ** CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback #signal:CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback#++    C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback,+    CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback,+    dynamic_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback,+    mk_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback,+    noCmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback,+++-- ** CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback #signal:CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback#++    C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback,+    CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback,+    dynamic_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback,+    mk_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback,+    noCmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback,+++-- ** CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback #signal:CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback#++    C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback,+    CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback,+    dynamic_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback,+    mk_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback,+    noCmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback,+++-- ** CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback #signal:CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback#++    C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback,+    CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback,+    dynamic_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback,+    mk_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback,+    noCmdPrivateVTableOstreeStaticDeltaDumpFieldCallback,+++-- ** CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback #signal:CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback#++    C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback,+    CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback,+    dynamic_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback,+    mk_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback,+    noCmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback,+++-- ** CmdPrivateVTableOstreeSystemGeneratorFieldCallback #signal:CmdPrivateVTableOstreeSystemGeneratorFieldCallback#++    C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback,+    CmdPrivateVTableOstreeSystemGeneratorFieldCallback,+    dynamic_CmdPrivateVTableOstreeSystemGeneratorFieldCallback,+    mk_CmdPrivateVTableOstreeSystemGeneratorFieldCallback,+    noCmdPrivateVTableOstreeSystemGeneratorFieldCallback,+++-- ** RepoCheckoutFilter #signal:RepoCheckoutFilter#++    C_RepoCheckoutFilter                    ,+    RepoCheckoutFilter                      ,+    RepoCheckoutFilter_WithClosures         ,+    drop_closures_RepoCheckoutFilter        ,+    dynamic_RepoCheckoutFilter              ,+    genClosure_RepoCheckoutFilter           ,+    mk_RepoCheckoutFilter                   ,+    noRepoCheckoutFilter                    ,+    noRepoCheckoutFilter_WithClosures       ,+    wrap_RepoCheckoutFilter                 ,+++-- ** RepoCommitFilter #signal:RepoCommitFilter#++    C_RepoCommitFilter                      ,+    RepoCommitFilter                        ,+    RepoCommitFilter_WithClosures           ,+    drop_closures_RepoCommitFilter          ,+    dynamic_RepoCommitFilter                ,+    genClosure_RepoCommitFilter             ,+    mk_RepoCommitFilter                     ,+    noRepoCommitFilter                      ,+    noRepoCommitFilter_WithClosures         ,+    wrap_RepoCommitFilter                   ,+++-- ** RepoCommitModifierXattrCallback #signal:RepoCommitModifierXattrCallback#++    C_RepoCommitModifierXattrCallback       ,+    RepoCommitModifierXattrCallback         ,+    RepoCommitModifierXattrCallback_WithClosures,+    drop_closures_RepoCommitModifierXattrCallback,+    dynamic_RepoCommitModifierXattrCallback ,+    genClosure_RepoCommitModifierXattrCallback,+    mk_RepoCommitModifierXattrCallback      ,+    noRepoCommitModifierXattrCallback       ,+    noRepoCommitModifierXattrCallback_WithClosures,+    wrap_RepoCommitModifierXattrCallback    ,+++-- ** RepoImportArchiveTranslatePathname #signal:RepoImportArchiveTranslatePathname#++    C_RepoImportArchiveTranslatePathname    ,+    RepoImportArchiveTranslatePathname      ,+    RepoImportArchiveTranslatePathname_WithClosures,+    drop_closures_RepoImportArchiveTranslatePathname,+    dynamic_RepoImportArchiveTranslatePathname,+    genClosure_RepoImportArchiveTranslatePathname,+    mk_RepoImportArchiveTranslatePathname   ,+    noRepoImportArchiveTranslatePathname    ,+    noRepoImportArchiveTranslatePathname_WithClosures,+    wrap_RepoImportArchiveTranslatePathname ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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 GI.Gio.Objects.Cancellable as Gio.Cancellable+import qualified GI.Gio.Objects.FileInfo as Gio.FileInfo+import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums+import {-# SOURCE #-} qualified GI.OSTree.Objects.Repo as OSTree.Repo+import {-# SOURCE #-} qualified GI.OSTree.Objects.Sysroot as OSTree.Sysroot+import {-# SOURCE #-} qualified GI.OSTree.Structs.Bootloader as OSTree.Bootloader++-- callback RepoImportArchiveTranslatePathname+--          -> Callable {returnType = Just (TBasicType TUTF8), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Stat buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path in the archive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Possibly change a pathname while importing an archive. If %NULL is returned,\nthen @src_path will be used unchanged.  Otherwise, return a new pathname which\nwill be freed via `g_free()`.\n\nThis pathname translation will be performed *before* any processing from an\nactive `OstreeRepoCommitModifier`. Will be invoked for all directory and file\ntypes, first with outer directories, then their sub-files and directories.\n\nNote that enabling pathname translation will always override the setting for\n`use_ostree_convention`.", sinceVersion = Just "2017.11"}}+-- | Type for the callback on the (unwrapped) C side.+type C_RepoImportArchiveTranslatePathname =+    Ptr OSTree.Repo.Repo ->+    Ptr () ->+    CString ->+    Ptr () ->+    IO CString++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Stat buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path in the archive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_RepoImportArchiveTranslatePathname :: FunPtr C_RepoImportArchiveTranslatePathname -> C_RepoImportArchiveTranslatePathname++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_RepoImportArchiveTranslatePathname ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a) =>+    FunPtr C_RepoImportArchiveTranslatePathname+    -> a+    {- ^ /@repo@/: Repo -}+    -> Ptr ()+    {- ^ /@stbuf@/: Stat buffer -}+    -> T.Text+    {- ^ /@srcPath@/: Path in the archive -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> m T.Text+dynamic_RepoImportArchiveTranslatePathname __funPtr repo stbuf srcPath userData = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    srcPath' <- textToCString srcPath+    result <- (__dynamic_C_RepoImportArchiveTranslatePathname __funPtr) repo' stbuf srcPath' userData+    checkUnexpectedReturnNULL "repoImportArchiveTranslatePathname" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr repo+    freeMem srcPath'+    return result'++-- | Generate a function pointer callable from C code, from a `C_RepoImportArchiveTranslatePathname`.+foreign import ccall "wrapper"+    mk_RepoImportArchiveTranslatePathname :: C_RepoImportArchiveTranslatePathname -> IO (FunPtr C_RepoImportArchiveTranslatePathname)++{- |+Possibly change a pathname while importing an archive. If 'Nothing' is returned,+then /@srcPath@/ will be used unchanged.  Otherwise, return a new pathname which+will be freed via @g_free()@.++This pathname translation will be performed *before* any processing from an+active @OstreeRepoCommitModifier@. Will be invoked for all directory and file+types, first with outer directories, then their sub-files and directories.++Note that enabling pathname translation will always override the setting for+@use_ostree_convention@.++/Since: 2017.11/+-}+type RepoImportArchiveTranslatePathname =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> Ptr ()+    {- ^ /@stbuf@/: Stat buffer -}+    -> T.Text+    {- ^ /@srcPath@/: Path in the archive -}+    -> IO T.Text++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoImportArchiveTranslatePathname`@.+noRepoImportArchiveTranslatePathname :: Maybe RepoImportArchiveTranslatePathname+noRepoImportArchiveTranslatePathname = Nothing++{- |+Possibly change a pathname while importing an archive. If 'Nothing' is returned,+then /@srcPath@/ will be used unchanged.  Otherwise, return a new pathname which+will be freed via @g_free()@.++This pathname translation will be performed *before* any processing from an+active @OstreeRepoCommitModifier@. Will be invoked for all directory and file+types, first with outer directories, then their sub-files and directories.++Note that enabling pathname translation will always override the setting for+@use_ostree_convention@.++/Since: 2017.11/+-}+type RepoImportArchiveTranslatePathname_WithClosures =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> Ptr ()+    {- ^ /@stbuf@/: Stat buffer -}+    -> T.Text+    {- ^ /@srcPath@/: Path in the archive -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> IO T.Text++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoImportArchiveTranslatePathname_WithClosures`@.+noRepoImportArchiveTranslatePathname_WithClosures :: Maybe RepoImportArchiveTranslatePathname_WithClosures+noRepoImportArchiveTranslatePathname_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_RepoImportArchiveTranslatePathname :: RepoImportArchiveTranslatePathname -> RepoImportArchiveTranslatePathname_WithClosures+drop_closures_RepoImportArchiveTranslatePathname _f repo stbuf srcPath _ = _f repo stbuf srcPath++-- | Wrap the callback into a `GClosure`.+genClosure_RepoImportArchiveTranslatePathname :: MonadIO m => RepoImportArchiveTranslatePathname -> m (GClosure C_RepoImportArchiveTranslatePathname)+genClosure_RepoImportArchiveTranslatePathname cb = liftIO $ do+    let cb' = drop_closures_RepoImportArchiveTranslatePathname cb+    let cb'' = wrap_RepoImportArchiveTranslatePathname Nothing cb'+    mk_RepoImportArchiveTranslatePathname cb'' >>= B.GClosure.newGClosure+++-- | Wrap a `RepoImportArchiveTranslatePathname` into a `C_RepoImportArchiveTranslatePathname`.+wrap_RepoImportArchiveTranslatePathname ::+    Maybe (Ptr (FunPtr C_RepoImportArchiveTranslatePathname)) ->+    RepoImportArchiveTranslatePathname_WithClosures ->+    C_RepoImportArchiveTranslatePathname+wrap_RepoImportArchiveTranslatePathname funptrptr _cb repo stbuf srcPath userData = do+    repo' <- (newObject OSTree.Repo.Repo) repo+    srcPath' <- cstringToText srcPath+    result <- _cb  repo' stbuf srcPath' userData+    maybeReleaseFunPtr funptrptr+    result' <- textToCString result+    return result'+++-- callback RepoCommitModifierXattrCallback+--          -> Callable {returnType = Just TVariant, returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_RepoCommitModifierXattrCallback =+    Ptr OSTree.Repo.Repo ->+    CString ->+    Ptr Gio.FileInfo.FileInfo ->+    Ptr () ->+    IO (Ptr GVariant)++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_RepoCommitModifierXattrCallback :: FunPtr C_RepoCommitModifierXattrCallback -> C_RepoCommitModifierXattrCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_RepoCommitModifierXattrCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.FileInfo.IsFileInfo b) =>+    FunPtr C_RepoCommitModifierXattrCallback+    -> a+    -> T.Text+    -> b+    -> Ptr ()+    -> m GVariant+dynamic_RepoCommitModifierXattrCallback __funPtr repo path fileInfo userData = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    path' <- textToCString path+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    result <- (__dynamic_C_RepoCommitModifierXattrCallback __funPtr) repo' path' fileInfo' userData+    checkUnexpectedReturnNULL "repoCommitModifierXattrCallback" result+    result' <- B.GVariant.wrapGVariantPtr result+    touchManagedPtr repo+    touchManagedPtr fileInfo+    freeMem path'+    return result'++-- | Generate a function pointer callable from C code, from a `C_RepoCommitModifierXattrCallback`.+foreign import ccall "wrapper"+    mk_RepoCommitModifierXattrCallback :: C_RepoCommitModifierXattrCallback -> IO (FunPtr C_RepoCommitModifierXattrCallback)++{- |+/No description available in the introspection data./+-}+type RepoCommitModifierXattrCallback =+    OSTree.Repo.Repo+    -> T.Text+    -> Gio.FileInfo.FileInfo+    -> IO GVariant++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCommitModifierXattrCallback`@.+noRepoCommitModifierXattrCallback :: Maybe RepoCommitModifierXattrCallback+noRepoCommitModifierXattrCallback = Nothing++{- |+/No description available in the introspection data./+-}+type RepoCommitModifierXattrCallback_WithClosures =+    OSTree.Repo.Repo+    -> T.Text+    -> Gio.FileInfo.FileInfo+    -> Ptr ()+    -> IO GVariant++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCommitModifierXattrCallback_WithClosures`@.+noRepoCommitModifierXattrCallback_WithClosures :: Maybe RepoCommitModifierXattrCallback_WithClosures+noRepoCommitModifierXattrCallback_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_RepoCommitModifierXattrCallback :: RepoCommitModifierXattrCallback -> RepoCommitModifierXattrCallback_WithClosures+drop_closures_RepoCommitModifierXattrCallback _f repo path fileInfo _ = _f repo path fileInfo++-- | Wrap the callback into a `GClosure`.+genClosure_RepoCommitModifierXattrCallback :: MonadIO m => RepoCommitModifierXattrCallback -> m (GClosure C_RepoCommitModifierXattrCallback)+genClosure_RepoCommitModifierXattrCallback cb = liftIO $ do+    let cb' = drop_closures_RepoCommitModifierXattrCallback cb+    let cb'' = wrap_RepoCommitModifierXattrCallback Nothing cb'+    mk_RepoCommitModifierXattrCallback cb'' >>= B.GClosure.newGClosure+++-- | Wrap a `RepoCommitModifierXattrCallback` into a `C_RepoCommitModifierXattrCallback`.+wrap_RepoCommitModifierXattrCallback ::+    Maybe (Ptr (FunPtr C_RepoCommitModifierXattrCallback)) ->+    RepoCommitModifierXattrCallback_WithClosures ->+    C_RepoCommitModifierXattrCallback+wrap_RepoCommitModifierXattrCallback funptrptr _cb repo path fileInfo userData = do+    repo' <- (newObject OSTree.Repo.Repo) repo+    path' <- cstringToText path+    fileInfo' <- (newObject Gio.FileInfo.FileInfo) fileInfo+    result <- _cb  repo' path' fileInfo' userData+    maybeReleaseFunPtr funptrptr+    result' <- B.GVariant.disownGVariant result+    return result'+++-- callback RepoCommitFilter+--          -> Callable {returnType = Just (TInterface (Name {namespace = "OSTree", name = "RepoCommitFilterResult"})), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "#OstreeRepoCommitFilterResult saying whether or not to commit this file", sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path to file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_RepoCommitFilter =+    Ptr OSTree.Repo.Repo ->+    CString ->+    Ptr Gio.FileInfo.FileInfo ->+    Ptr () ->+    IO CUInt++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path to file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "RepoCommitFilterResult"}))+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_RepoCommitFilter :: FunPtr C_RepoCommitFilter -> C_RepoCommitFilter++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_RepoCommitFilter ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.FileInfo.IsFileInfo b) =>+    FunPtr C_RepoCommitFilter+    -> a+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> b+    {- ^ /@fileInfo@/: File information -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> m OSTree.Enums.RepoCommitFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCommitFilterResult' saying whether or not to commit this file -}+dynamic_RepoCommitFilter __funPtr repo path fileInfo userData = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    path' <- textToCString path+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    result <- (__dynamic_C_RepoCommitFilter __funPtr) repo' path' fileInfo' userData+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr repo+    touchManagedPtr fileInfo+    freeMem path'+    return result'++-- | Generate a function pointer callable from C code, from a `C_RepoCommitFilter`.+foreign import ccall "wrapper"+    mk_RepoCommitFilter :: C_RepoCommitFilter -> IO (FunPtr C_RepoCommitFilter)++{- |+/No description available in the introspection data./+-}+type RepoCommitFilter =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> Gio.FileInfo.FileInfo+    {- ^ /@fileInfo@/: File information -}+    -> IO OSTree.Enums.RepoCommitFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCommitFilterResult' saying whether or not to commit this file -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCommitFilter`@.+noRepoCommitFilter :: Maybe RepoCommitFilter+noRepoCommitFilter = Nothing++{- |+/No description available in the introspection data./+-}+type RepoCommitFilter_WithClosures =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> Gio.FileInfo.FileInfo+    {- ^ /@fileInfo@/: File information -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> IO OSTree.Enums.RepoCommitFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCommitFilterResult' saying whether or not to commit this file -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCommitFilter_WithClosures`@.+noRepoCommitFilter_WithClosures :: Maybe RepoCommitFilter_WithClosures+noRepoCommitFilter_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_RepoCommitFilter :: RepoCommitFilter -> RepoCommitFilter_WithClosures+drop_closures_RepoCommitFilter _f repo path fileInfo _ = _f repo path fileInfo++-- | Wrap the callback into a `GClosure`.+genClosure_RepoCommitFilter :: MonadIO m => RepoCommitFilter -> m (GClosure C_RepoCommitFilter)+genClosure_RepoCommitFilter cb = liftIO $ do+    let cb' = drop_closures_RepoCommitFilter cb+    let cb'' = wrap_RepoCommitFilter Nothing cb'+    mk_RepoCommitFilter cb'' >>= B.GClosure.newGClosure+++-- | Wrap a `RepoCommitFilter` into a `C_RepoCommitFilter`.+wrap_RepoCommitFilter ::+    Maybe (Ptr (FunPtr C_RepoCommitFilter)) ->+    RepoCommitFilter_WithClosures ->+    C_RepoCommitFilter+wrap_RepoCommitFilter funptrptr _cb repo path fileInfo userData = do+    repo' <- (newObject OSTree.Repo.Repo) repo+    path' <- cstringToText path+    fileInfo' <- (newObject Gio.FileInfo.FileInfo) fileInfo+    result <- _cb  repo' path' fileInfo' userData+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'+++-- callback RepoCheckoutFilter+--          -> Callable {returnType = Just (TInterface (Name {namespace = "OSTree", name = "RepoCheckoutFilterResult"})), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "#OstreeRepoCheckoutFilterResult saying whether or not to checkout this file", sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path to file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "File information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Just "2018.2"}}+-- | Type for the callback on the (unwrapped) C side.+type C_RepoCheckoutFilter =+    Ptr OSTree.Repo.Repo ->+    CString ->+    Ptr () ->+    Ptr () ->+    IO CUInt++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Repo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path to file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "File information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "RepoCheckoutFilterResult"}))+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_RepoCheckoutFilter :: FunPtr C_RepoCheckoutFilter -> C_RepoCheckoutFilter++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_RepoCheckoutFilter ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a) =>+    FunPtr C_RepoCheckoutFilter+    -> a+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> Ptr ()+    {- ^ /@stbuf@/: File information -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> m OSTree.Enums.RepoCheckoutFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCheckoutFilterResult' saying whether or not to checkout this file -}+dynamic_RepoCheckoutFilter __funPtr repo path stbuf userData = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    path' <- textToCString path+    result <- (__dynamic_C_RepoCheckoutFilter __funPtr) repo' path' stbuf userData+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr repo+    freeMem path'+    return result'++-- | Generate a function pointer callable from C code, from a `C_RepoCheckoutFilter`.+foreign import ccall "wrapper"+    mk_RepoCheckoutFilter :: C_RepoCheckoutFilter -> IO (FunPtr C_RepoCheckoutFilter)++{- |+/No description available in the introspection data./++/Since: 2018.2/+-}+type RepoCheckoutFilter =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> Ptr ()+    {- ^ /@stbuf@/: File information -}+    -> IO OSTree.Enums.RepoCheckoutFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCheckoutFilterResult' saying whether or not to checkout this file -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCheckoutFilter`@.+noRepoCheckoutFilter :: Maybe RepoCheckoutFilter+noRepoCheckoutFilter = Nothing++{- |+/No description available in the introspection data./++/Since: 2018.2/+-}+type RepoCheckoutFilter_WithClosures =+    OSTree.Repo.Repo+    {- ^ /@repo@/: Repo -}+    -> T.Text+    {- ^ /@path@/: Path to file -}+    -> Ptr ()+    {- ^ /@stbuf@/: File information -}+    -> Ptr ()+    {- ^ /@userData@/: User data -}+    -> IO OSTree.Enums.RepoCheckoutFilterResult+    {- ^ __Returns:__ 'GI.OSTree.Enums.RepoCheckoutFilterResult' saying whether or not to checkout this file -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `RepoCheckoutFilter_WithClosures`@.+noRepoCheckoutFilter_WithClosures :: Maybe RepoCheckoutFilter_WithClosures+noRepoCheckoutFilter_WithClosures = Nothing++-- | A simple wrapper that ignores the closure arguments.+drop_closures_RepoCheckoutFilter :: RepoCheckoutFilter -> RepoCheckoutFilter_WithClosures+drop_closures_RepoCheckoutFilter _f repo path stbuf _ = _f repo path stbuf++-- | Wrap the callback into a `GClosure`.+genClosure_RepoCheckoutFilter :: MonadIO m => RepoCheckoutFilter -> m (GClosure C_RepoCheckoutFilter)+genClosure_RepoCheckoutFilter cb = liftIO $ do+    let cb' = drop_closures_RepoCheckoutFilter cb+    let cb'' = wrap_RepoCheckoutFilter Nothing cb'+    mk_RepoCheckoutFilter cb'' >>= B.GClosure.newGClosure+++-- | Wrap a `RepoCheckoutFilter` into a `C_RepoCheckoutFilter`.+wrap_RepoCheckoutFilter ::+    Maybe (Ptr (FunPtr C_RepoCheckoutFilter)) ->+    RepoCheckoutFilter_WithClosures ->+    C_RepoCheckoutFilter+wrap_RepoCheckoutFilter funptrptr _cb repo path stbuf userData = do+    repo' <- (newObject OSTree.Repo.Repo) repo+    path' <- cstringToText path+    result <- _cb  repo' path' stbuf userData+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'+++-- callback CmdPrivateVTableOstreeSystemGeneratorFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "ostree_cmdline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "normal_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "early_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "late_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback =+    CString ->+    CString ->+    CString ->+    CString ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "ostree_cmdline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "normal_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "early_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "late_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback :: FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback -> C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeSystemGeneratorFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback+    -> T.Text+    -> T.Text+    -> T.Text+    -> T.Text+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeSystemGeneratorFieldCallback __funPtr ostreeCmdline normalDir earlyDir lateDir = liftIO $ do+    ostreeCmdline' <- textToCString ostreeCmdline+    normalDir' <- textToCString normalDir+    earlyDir' <- textToCString earlyDir+    lateDir' <- textToCString lateDir+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback __funPtr) ostreeCmdline' normalDir' earlyDir' lateDir'+        freeMem ostreeCmdline'+        freeMem normalDir'+        freeMem earlyDir'+        freeMem lateDir'+        return ()+     ) (do+        freeMem ostreeCmdline'+        freeMem normalDir'+        freeMem earlyDir'+        freeMem lateDir'+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeSystemGeneratorFieldCallback :: C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeSystemGeneratorFieldCallback =+    T.Text+    -> T.Text+    -> T.Text+    -> T.Text+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeSystemGeneratorFieldCallback`@.+noCmdPrivateVTableOstreeSystemGeneratorFieldCallback :: Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback+noCmdPrivateVTableOstreeSystemGeneratorFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback =+    Ptr OSTree.Repo.Repo ->+    CString ->+    CInt ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback :: FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback -> C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.Cancellable.IsCancellable b) =>+    FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback+    -> a+    -> T.Text+    -> Bool+    -> b+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback __funPtr repo deltaId outExists cancellable = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    deltaId' <- textToCString deltaId+    let outExists' = (fromIntegral . fromEnum) outExists+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback __funPtr) repo' deltaId' outExists' cancellable'+        touchManagedPtr repo+        touchManagedPtr cancellable+        freeMem deltaId'+        return ()+     ) (do+        freeMem deltaId'+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback :: C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback =+    OSTree.Repo.Repo+    -> T.Text+    -> Bool+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback`@.+noCmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback :: Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback+noCmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback =+    Ptr OSTree.Repo.Repo ->+    CString ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback :: FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback -> C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.Cancellable.IsCancellable b) =>+    FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback+    -> a+    -> T.Text+    -> b+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback __funPtr repo deltaId cancellable = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    deltaId' <- textToCString deltaId+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback __funPtr) repo' deltaId' cancellable'+        touchManagedPtr repo+        touchManagedPtr cancellable+        freeMem deltaId'+        return ()+     ) (do+        freeMem deltaId'+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback :: C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback =+    OSTree.Repo.Repo+    -> T.Text+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback`@.+noCmdPrivateVTableOstreeStaticDeltaDumpFieldCallback :: Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback+noCmdPrivateVTableOstreeStaticDeltaDumpFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback =+    Ptr OSTree.Repo.Repo ->+    CString ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback :: FunPtr C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback -> C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.Cancellable.IsCancellable b) =>+    FunPtr C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback+    -> a+    -> T.Text+    -> b+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback __funPtr repo deltaId cancellable = liftIO $ do+    repo' <- unsafeManagedPtrCastPtr repo+    deltaId' <- textToCString deltaId+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback __funPtr) repo' deltaId' cancellable'+        touchManagedPtr repo+        touchManagedPtr cancellable+        freeMem deltaId'+        return ()+     ) (do+        freeMem deltaId'+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback :: C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback =+    OSTree.Repo.Repo+    -> T.Text+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback`@.+noCmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback :: Maybe CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback+noCmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "collection_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ref_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "commit", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback =+    CString ->+    CString ->+    Ptr GVariant ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "collection_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ref_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "commit", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback :: FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback -> C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback+    -> T.Text+    -> T.Text+    -> GVariant+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback __funPtr collectionId refName commit = liftIO $ do+    collectionId' <- textToCString collectionId+    refName' <- textToCString refName+    commit' <- unsafeManagedPtrGetPtr commit+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback __funPtr) collectionId' refName' commit'+        touchManagedPtr commit+        freeMem collectionId'+        freeMem refName'+        return ()+     ) (do+        freeMem collectionId'+        freeMem refName'+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback :: C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback =+    T.Text+    -> T.Text+    -> GVariant+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback`@.+noCmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback :: Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback+noCmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "sysroot", argType = TInterface (Name {namespace = "OSTree", name = "Sysroot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bootversion", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback =+    Ptr OSTree.Sysroot.Sysroot ->+    Int32 ->+    Int32 ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "sysroot", argType = TInterface (Name {namespace = "OSTree", name = "Sysroot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bootversion", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback :: FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback -> C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Sysroot.IsSysroot a, Gio.Cancellable.IsCancellable b) =>+    FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback+    -> a+    -> Int32+    -> Int32+    -> b+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback __funPtr sysroot bootversion targetFd cancellable = liftIO $ do+    sysroot' <- unsafeManagedPtrCastPtr sysroot+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback __funPtr) sysroot' bootversion targetFd cancellable'+        touchManagedPtr sysroot+        touchManagedPtr cancellable+        return ()+     ) (do+        return ()+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback :: C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback =+    OSTree.Sysroot.Sysroot+    -> Int32+    -> Int32+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback`@.+noCmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback :: Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback+noCmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback CmdPrivateVTableOstreeFinalizeStagedFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "sysroot", argType = TInterface (Name {namespace = "OSTree", name = "Sysroot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback =+    Ptr OSTree.Sysroot.Sysroot ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "sysroot", argType = TInterface (Name {namespace = "OSTree", name = "Sysroot"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback :: FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback -> C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_CmdPrivateVTableOstreeFinalizeStagedFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Sysroot.IsSysroot a, Gio.Cancellable.IsCancellable b) =>+    FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback+    -> a+    -> b+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_CmdPrivateVTableOstreeFinalizeStagedFieldCallback __funPtr sysroot cancellable = liftIO $ do+    sysroot' <- unsafeManagedPtrCastPtr sysroot+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback __funPtr) sysroot' cancellable'+        touchManagedPtr sysroot+        touchManagedPtr cancellable+        return ()+     ) (do+        return ()+     )++-- | Generate a function pointer callable from C code, from a `C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback`.+foreign import ccall "wrapper"+    mk_CmdPrivateVTableOstreeFinalizeStagedFieldCallback :: C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback -> IO (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)++{- |+/No description available in the introspection data./+-}+type CmdPrivateVTableOstreeFinalizeStagedFieldCallback =+    OSTree.Sysroot.Sysroot+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `CmdPrivateVTableOstreeFinalizeStagedFieldCallback`@.+noCmdPrivateVTableOstreeFinalizeStagedFieldCallback :: Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback+noCmdPrivateVTableOstreeFinalizeStagedFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback BootloaderInterfaceQueryFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "bootloader", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = True, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_BootloaderInterfaceQueryFieldCallback =+    Ptr OSTree.Bootloader.Bootloader ->+    CInt ->+    Ptr Gio.Cancellable.Cancellable ->+    Ptr (Ptr GError) ->+    IO CInt++-- Args : [Arg {argCName = "bootloader", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_BootloaderInterfaceQueryFieldCallback :: FunPtr C_BootloaderInterfaceQueryFieldCallback -> C_BootloaderInterfaceQueryFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_BootloaderInterfaceQueryFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>+    FunPtr C_BootloaderInterfaceQueryFieldCallback+    -> OSTree.Bootloader.Bootloader+    -> Bool+    -> a+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+dynamic_BootloaderInterfaceQueryFieldCallback __funPtr bootloader outIsActive cancellable = liftIO $ do+    bootloader' <- unsafeManagedPtrGetPtr bootloader+    let outIsActive' = (fromIntegral . fromEnum) outIsActive+    cancellable' <- unsafeManagedPtrCastPtr cancellable+    onException (do+        _ <- propagateGError $ (__dynamic_C_BootloaderInterfaceQueryFieldCallback __funPtr) bootloader' outIsActive' cancellable'+        touchManagedPtr bootloader+        touchManagedPtr cancellable+        return ()+     ) (do+        return ()+     )++-- | Generate a function pointer callable from C code, from a `C_BootloaderInterfaceQueryFieldCallback`.+foreign import ccall "wrapper"+    mk_BootloaderInterfaceQueryFieldCallback :: C_BootloaderInterfaceQueryFieldCallback -> IO (FunPtr C_BootloaderInterfaceQueryFieldCallback)++{- |+/No description available in the introspection data./+-}+type BootloaderInterfaceQueryFieldCallback =+    OSTree.Bootloader.Bootloader+    -> Bool+    -> Gio.Cancellable.Cancellable+    -> IO ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}++-- | A convenience synonym for @`Nothing` :: `Maybe` `BootloaderInterfaceQueryFieldCallback`@.+noBootloaderInterfaceQueryFieldCallback :: Maybe BootloaderInterfaceQueryFieldCallback+noBootloaderInterfaceQueryFieldCallback = Nothing++-- No Haskell->C wrapper generated since the function throws.++-- callback BootloaderInterfaceIsAtomicFieldCallback+--          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_BootloaderInterfaceIsAtomicFieldCallback =+    Ptr OSTree.Bootloader.Bootloader ->+    IO CInt++-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_BootloaderInterfaceIsAtomicFieldCallback :: FunPtr C_BootloaderInterfaceIsAtomicFieldCallback -> C_BootloaderInterfaceIsAtomicFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_BootloaderInterfaceIsAtomicFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_BootloaderInterfaceIsAtomicFieldCallback+    -> OSTree.Bootloader.Bootloader+    -> m Bool+dynamic_BootloaderInterfaceIsAtomicFieldCallback __funPtr self = liftIO $ do+    self' <- unsafeManagedPtrGetPtr self+    result <- (__dynamic_C_BootloaderInterfaceIsAtomicFieldCallback __funPtr) self'+    let result' = (/= 0) result+    touchManagedPtr self+    return result'++-- | Generate a function pointer callable from C code, from a `C_BootloaderInterfaceIsAtomicFieldCallback`.+foreign import ccall "wrapper"+    mk_BootloaderInterfaceIsAtomicFieldCallback :: C_BootloaderInterfaceIsAtomicFieldCallback -> IO (FunPtr C_BootloaderInterfaceIsAtomicFieldCallback)++{- |+/No description available in the introspection data./+-}+type BootloaderInterfaceIsAtomicFieldCallback =+    OSTree.Bootloader.Bootloader+    -> IO Bool++-- | A convenience synonym for @`Nothing` :: `Maybe` `BootloaderInterfaceIsAtomicFieldCallback`@.+noBootloaderInterfaceIsAtomicFieldCallback :: Maybe BootloaderInterfaceIsAtomicFieldCallback+noBootloaderInterfaceIsAtomicFieldCallback = Nothing++-- | Wrap the callback into a `GClosure`.+genClosure_BootloaderInterfaceIsAtomicFieldCallback :: MonadIO m => BootloaderInterfaceIsAtomicFieldCallback -> m (GClosure C_BootloaderInterfaceIsAtomicFieldCallback)+genClosure_BootloaderInterfaceIsAtomicFieldCallback cb = liftIO $ do+    let cb' = wrap_BootloaderInterfaceIsAtomicFieldCallback Nothing cb+    mk_BootloaderInterfaceIsAtomicFieldCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `BootloaderInterfaceIsAtomicFieldCallback` into a `C_BootloaderInterfaceIsAtomicFieldCallback`.+wrap_BootloaderInterfaceIsAtomicFieldCallback ::+    Maybe (Ptr (FunPtr C_BootloaderInterfaceIsAtomicFieldCallback)) ->+    BootloaderInterfaceIsAtomicFieldCallback ->+    C_BootloaderInterfaceIsAtomicFieldCallback+wrap_BootloaderInterfaceIsAtomicFieldCallback funptrptr _cb self = do+    self' <- (newPtr OSTree.Bootloader.Bootloader) self+    result <- _cb  self'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'+++-- callback BootloaderInterfaceGetNameFieldCallback+--          -> Callable {returnType = Just (TBasicType TUTF8), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}+-- | Type for the callback on the (unwrapped) C side.+type C_BootloaderInterfaceGetNameFieldCallback =+    Ptr OSTree.Bootloader.Bootloader ->+    IO CString++-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "Bootloader"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "dynamic" __dynamic_C_BootloaderInterfaceGetNameFieldCallback :: FunPtr C_BootloaderInterfaceGetNameFieldCallback -> C_BootloaderInterfaceGetNameFieldCallback++-- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.+dynamic_BootloaderInterfaceGetNameFieldCallback ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    FunPtr C_BootloaderInterfaceGetNameFieldCallback+    -> OSTree.Bootloader.Bootloader+    -> m T.Text+dynamic_BootloaderInterfaceGetNameFieldCallback __funPtr self = liftIO $ do+    self' <- unsafeManagedPtrGetPtr self+    result <- (__dynamic_C_BootloaderInterfaceGetNameFieldCallback __funPtr) self'+    checkUnexpectedReturnNULL "bootloaderInterfaceGetNameFieldCallback" result+    result' <- cstringToText result+    touchManagedPtr self+    return result'++-- | Generate a function pointer callable from C code, from a `C_BootloaderInterfaceGetNameFieldCallback`.+foreign import ccall "wrapper"+    mk_BootloaderInterfaceGetNameFieldCallback :: C_BootloaderInterfaceGetNameFieldCallback -> IO (FunPtr C_BootloaderInterfaceGetNameFieldCallback)++{- |+/No description available in the introspection data./+-}+type BootloaderInterfaceGetNameFieldCallback =+    OSTree.Bootloader.Bootloader+    -> IO T.Text++-- | A convenience synonym for @`Nothing` :: `Maybe` `BootloaderInterfaceGetNameFieldCallback`@.+noBootloaderInterfaceGetNameFieldCallback :: Maybe BootloaderInterfaceGetNameFieldCallback+noBootloaderInterfaceGetNameFieldCallback = Nothing++-- | Wrap the callback into a `GClosure`.+genClosure_BootloaderInterfaceGetNameFieldCallback :: MonadIO m => BootloaderInterfaceGetNameFieldCallback -> m (GClosure C_BootloaderInterfaceGetNameFieldCallback)+genClosure_BootloaderInterfaceGetNameFieldCallback cb = liftIO $ do+    let cb' = wrap_BootloaderInterfaceGetNameFieldCallback Nothing cb+    mk_BootloaderInterfaceGetNameFieldCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `BootloaderInterfaceGetNameFieldCallback` into a `C_BootloaderInterfaceGetNameFieldCallback`.+wrap_BootloaderInterfaceGetNameFieldCallback ::+    Maybe (Ptr (FunPtr C_BootloaderInterfaceGetNameFieldCallback)) ->+    BootloaderInterfaceGetNameFieldCallback ->+    C_BootloaderInterfaceGetNameFieldCallback+wrap_BootloaderInterfaceGetNameFieldCallback funptrptr _cb self = do+    self' <- (newPtr OSTree.Bootloader.Bootloader) self+    result <- _cb  self'+    maybeReleaseFunPtr funptrptr+    result' <- textToCString result+    return result'+++

@@ -0,0 +1,270 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Constants+    ( +    pattern YEAR_VERSION                    ,+    pattern VERSION_S                       ,+    pattern VERSION                         ,+    pattern TREE_GVARIANT_STRING            ,+    pattern TIMESTAMP                       ,+    pattern SUMMARY_SIG_GVARIANT_STRING     ,+    pattern SUMMARY_GVARIANT_STRING         ,+    pattern SHA256_STRING_LEN               ,+    pattern SHA256_DIGEST_LEN               ,+    pattern REPO_METADATA_REF               ,+    pattern RELEASE_VERSION                 ,+    pattern ORIGIN_TRANSIENT_GROUP          ,+    pattern META_KEY_DEPLOY_COLLECTION_ID   ,+    pattern MAX_METADATA_WARN_SIZE          ,+    pattern MAX_METADATA_SIZE               ,+    pattern FILEMETA_GVARIANT_STRING        ,+    pattern DIRMETA_GVARIANT_STRING         ,+    pattern COMMIT_META_KEY_VERSION         ,+    pattern COMMIT_META_KEY_SOURCE_TITLE    ,+    pattern COMMIT_META_KEY_REF_BINDING     ,+    pattern COMMIT_META_KEY_ENDOFLIFE_REBASE,+    pattern COMMIT_META_KEY_ENDOFLIFE       ,+    pattern COMMIT_META_KEY_COLLECTION_BINDING,+    pattern COMMIT_GVARIANT_STRING          ,++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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+++{- |+ostree year version component (e.g. 2017 if 'GI.OSTree.Constants.VERSION' is 2017.2)++/Since: 2017.4/+-}+pattern YEAR_VERSION = 2019 :: Int32++{- |+ostree version, encoded as a string, useful for printing and+concatenation.++/Since: 2017.4/+-}+pattern VERSION_S = "2019.2" :: T.Text++{- |+ostree version.++/Since: 2017.4/+-}+pattern VERSION = 2019.200000 :: Double++{- |+/No description available in the introspection data./+-}+pattern TREE_GVARIANT_STRING = "(a(say)a(sayay))" :: T.Text++{- |+The mtime used for stored files.  This was originally 0, changed to 1 for+a few releases, then was reverted due to regressions it introduced from+users who had been using zero before.+-}+pattern TIMESTAMP = 0 :: Int32++{- |+/No description available in the introspection data./+-}+pattern SUMMARY_SIG_GVARIANT_STRING = "a{sv}" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern SUMMARY_GVARIANT_STRING = "(a(s(taya{sv}))a{sv})" :: T.Text++{- |+Length of a sha256 digest when expressed as a hexadecimal string+-}+pattern SHA256_STRING_LEN = 64 :: Int32++{- |+Length of a sha256 digest when expressed as raw bytes+-}+pattern SHA256_DIGEST_LEN = 32 :: Int32++{- |+The name of a ref which is used to store metadata for the entire repository,+such as its expected update time (@ostree.summary.expires@), name, or new+GPG keys. Metadata is stored on contentless commits in the ref, and hence is+signed with the commits.++This supersedes the additional metadata dictionary in the @summary@ file+(see 'GI.OSTree.Objects.Repo.repoRegenerateSummary'), as the use of a ref means that the+metadata for multiple upstream repositories can be included in a single mirror+repository, disambiguating the refs using collection IDs. In order to support+peer to peer redistribution of repository metadata, repositories must set a+collection ID ('GI.OSTree.Objects.Repo.repoSetCollectionId').++Users of OSTree may place arbitrary metadata in commits on this ref, but the+keys must be namespaced by product or developer. For example,+@exampleos.end-of-life@. The @ostree.@ prefix is reserved.++/Since: 2018.6/+-}+pattern REPO_METADATA_REF = "ostree-metadata" :: T.Text++{- |+ostree release version component (e.g. 2 if 'GI.OSTree.Constants.VERSION' is 2017.2)++/Since: 2017.4/+-}+pattern RELEASE_VERSION = 2 :: Int32++{- |+The name of a @GKeyFile@ group for data that should not+be carried across upgrades.  For more information,+see 'GI.OSTree.Objects.Deployment.deploymentOriginRemoveTransientState'.++/Since: 2018.3/+-}+pattern ORIGIN_TRANSIENT_GROUP = "libostree-transient" :: T.Text++{- |+GVariant type @s@. This key can be used in the repo metadata which is stored+in OSTREE_REPO_METADATA_REF as well as in the summary. The semantics of this+are that the remote repository wants clients to update their remote config+to add this collection ID (clients can\'t do P2P operations involving a+remote without a collection ID configured on it, even if one is configured+on the server side). Clients must never change or remove a collection ID+already set in their remote config.++Currently, OSTree does not implement changing a remote config based on this+key, but it may do so in a later release, and until then clients such as+Flatpak may implement it.++This is a replacement for the similar metadata key implemented by flatpak,+@xa.collection-id@, which is now deprecated as clients which supported it had+bugs with their P2P implementations.++/Since: 2018.9/+-}+pattern META_KEY_DEPLOY_COLLECTION_ID = "ostree.deploy-collection-id" :: T.Text++{- |+This variable is no longer meaningful, it is kept only for compatibility.+-}+pattern MAX_METADATA_WARN_SIZE = 7340032 :: Int32++{- |+Default limit for maximum permitted size in bytes of metadata objects fetched+over HTTP (including repo\/config files, refs, and commit\/dirtree\/dirmeta+objects). This is an arbitrary number intended to mitigate disk space+exhaustion attacks.+-}+pattern MAX_METADATA_SIZE = 10485760 :: Int32++{- |+/No description available in the introspection data./+-}+pattern FILEMETA_GVARIANT_STRING = "(uuua(ayay))" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern DIRMETA_GVARIANT_STRING = "(uuua(ayay))" :: T.Text++{- |+GVariant type @s@. This metadata key is used for version numbers. A freeform+string; the intention is that systems using ostree do not interpret this+semantically as traditional package managers do.++This is the only ostree-defined metadata key that does not start with @ostree.@.++/Since: 2014.9/+-}+pattern COMMIT_META_KEY_VERSION = "version" :: T.Text++{- |+GVariant type @s@. This should hold a relatively short single line value+containing a human-readable \"source\" for a commit, intended to be displayed+near the origin ref.  This is particularly useful for systems that inject+content into an OSTree commit from elsewhere - for example, generating from+an OCI or qcow2 image. Or if generating from packages, the enabled repository+names and their versions.++Try to keep this key short (e.g. \< 80 characters) and human-readable; if you+desire machine readable data, consider injecting separate metadata keys.++/Since: 2017.13/+-}+pattern COMMIT_META_KEY_SOURCE_TITLE = "ostree.source-title" :: T.Text++{- |+GVariant type @as@; each element is a branch name. If this is added to a+commit, @ostree_repo_pull()@ will enforce that the commit was retrieved from+one of the branch names in this array.  This prevents \"sidegrade\" attacks.+The rationale for having this support multiple branch names is that it helps+support a \"promotion\" model of taking a commit and moving it between development+and production branches.++/Since: 2017.9/+-}+pattern COMMIT_META_KEY_REF_BINDING = "ostree.ref-binding" :: T.Text++{- |+GVariant type @s@.  Should contain a refspec defining a new target branch;+@ostree admin upgrade@ and @OstreeSysrootUpgrader@ will automatically initiate+a rebase upon encountering this metadata key.++/Since: 2017.7/+-}+pattern COMMIT_META_KEY_ENDOFLIFE_REBASE = "ostree.endoflife-rebase" :: T.Text++{- |+GVariant type @s@. This metadata key is used to display vendor\'s message+when an update stream for a particular branch ends. It usually provides+update instructions for the users.++/Since: 2017.7/+-}+pattern COMMIT_META_KEY_ENDOFLIFE = "ostree.endoflife" :: T.Text++{- |+GVariant type @s@.  If this is added to a commit, @ostree_repo_pull()@+will enforce that the commit was retrieved from a repository which has+the same collection ID.  See @ostree_repo_set_collection_id()@.+This is most useful in concert with @OSTREE_COMMIT_META_KEY_REF_BINDING@,+as it more strongly binds the commit to the repository and branch.++/Since: 2018.6/+-}+pattern COMMIT_META_KEY_COLLECTION_BINDING = "ostree.collection-binding" :: T.Text++{- |+/No description available in the introspection data./+-}+pattern COMMIT_GVARIANT_STRING = "(a{sv}aya(say)sstayay)" :: T.Text++

@@ -0,0 +1,721 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Enums+    ( ++ -- * Enumerations+-- ** DeploymentUnlockedState #enum:DeploymentUnlockedState#++    DeploymentUnlockedState(..)             ,+++-- ** GpgError #enum:GpgError#++    GpgError(..)                            ,+    catchGpgError                           ,+    handleGpgError                          ,+++-- ** GpgSignatureAttr #enum:GpgSignatureAttr#++    GpgSignatureAttr(..)                    ,+++-- ** GpgSignatureFormatFlags #enum:GpgSignatureFormatFlags#++    GpgSignatureFormatFlags(..)             ,+++-- ** ObjectType #enum:ObjectType#++    ObjectType(..)                          ,+++-- ** RepoCheckoutFilterResult #enum:RepoCheckoutFilterResult#++    RepoCheckoutFilterResult(..)            ,+++-- ** RepoCheckoutMode #enum:RepoCheckoutMode#++    RepoCheckoutMode(..)                    ,+++-- ** RepoCheckoutOverwriteMode #enum:RepoCheckoutOverwriteMode#++    RepoCheckoutOverwriteMode(..)           ,+++-- ** RepoCommitFilterResult #enum:RepoCommitFilterResult#++    RepoCommitFilterResult(..)              ,+++-- ** RepoCommitIterResult #enum:RepoCommitIterResult#++    RepoCommitIterResult(..)                ,+++-- ** RepoMode #enum:RepoMode#++    RepoMode(..)                            ,+++-- ** RepoPruneFlags #enum:RepoPruneFlags#++    RepoPruneFlags(..)                      ,+++-- ** RepoRemoteChange #enum:RepoRemoteChange#++    RepoRemoteChange(..)                    ,+++-- ** StaticDeltaGenerateOpt #enum:StaticDeltaGenerateOpt#++    StaticDeltaGenerateOpt(..)              ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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+++-- Enum StaticDeltaGenerateOpt+{- |+Parameters controlling optimization of static deltas.+-}+data StaticDeltaGenerateOpt = +      StaticDeltaGenerateOptLowlatency+    {- ^+    Optimize for speed of delta creation over space+    -}+    | StaticDeltaGenerateOptMajor+    {- ^+    Optimize for delta size (may be very slow)+    -}+    | AnotherStaticDeltaGenerateOpt Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum StaticDeltaGenerateOpt where+    fromEnum StaticDeltaGenerateOptLowlatency = 0+    fromEnum StaticDeltaGenerateOptMajor = 1+    fromEnum (AnotherStaticDeltaGenerateOpt k) = k++    toEnum 0 = StaticDeltaGenerateOptLowlatency+    toEnum 1 = StaticDeltaGenerateOptMajor+    toEnum k = AnotherStaticDeltaGenerateOpt k++instance P.Ord StaticDeltaGenerateOpt where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoRemoteChange+{- |+The remote change operation.+-}+data RepoRemoteChange = +      RepoRemoteChangeAdd+    {- ^+    Add a remote+    -}+    | RepoRemoteChangeAddIfNotExists+    {- ^+    Like above, but do nothing if the remote exists+    -}+    | RepoRemoteChangeDelete+    {- ^+    Delete a remote+    -}+    | RepoRemoteChangeDeleteIfExists+    {- ^+    Delete a remote, do nothing if the remote does not exist+    -}+    | RepoRemoteChangeReplace+    {- ^+    Add or replace a remote (Since: 2019.2)+    -}+    | AnotherRepoRemoteChange Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoRemoteChange where+    fromEnum RepoRemoteChangeAdd = 0+    fromEnum RepoRemoteChangeAddIfNotExists = 1+    fromEnum RepoRemoteChangeDelete = 2+    fromEnum RepoRemoteChangeDeleteIfExists = 3+    fromEnum RepoRemoteChangeReplace = 4+    fromEnum (AnotherRepoRemoteChange k) = k++    toEnum 0 = RepoRemoteChangeAdd+    toEnum 1 = RepoRemoteChangeAddIfNotExists+    toEnum 2 = RepoRemoteChangeDelete+    toEnum 3 = RepoRemoteChangeDeleteIfExists+    toEnum 4 = RepoRemoteChangeReplace+    toEnum k = AnotherRepoRemoteChange k++instance P.Ord RepoRemoteChange where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoPruneFlags+{- |+/No description available in the introspection data./+-}+data RepoPruneFlags = +      RepoPruneFlagsNone+    {- ^+    No special options for pruning+    -}+    | RepoPruneFlagsNoPrune+    {- ^+    Don\'t actually delete objects+    -}+    | RepoPruneFlagsRefsOnly+    {- ^+    Do not traverse individual commit objects, only follow refs+    -}+    | AnotherRepoPruneFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoPruneFlags where+    fromEnum RepoPruneFlagsNone = 0+    fromEnum RepoPruneFlagsNoPrune = 1+    fromEnum RepoPruneFlagsRefsOnly = 2+    fromEnum (AnotherRepoPruneFlags k) = k++    toEnum 0 = RepoPruneFlagsNone+    toEnum 1 = RepoPruneFlagsNoPrune+    toEnum 2 = RepoPruneFlagsRefsOnly+    toEnum k = AnotherRepoPruneFlags k++instance P.Ord RepoPruneFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoMode+{- |+See the documentation of 'GI.OSTree.Objects.Repo.Repo' for more information about the+possible modes.+-}+data RepoMode = +      RepoModeBare+    {- ^+    Files are stored as themselves; checkouts are hardlinks; can only be written as root+    -}+    | RepoModeArchive+    {- ^+    Files are compressed, should be owned by non-root.  Can be served via HTTP.  Since: 2017.12+    -}+    | RepoModeArchiveZ2+    {- ^+    Legacy alias for @OSTREE_REPO_MODE_ARCHIVE@+    -}+    | RepoModeBareUser+    {- ^+    Files are stored as themselves, except ownership; can be written by user. Hardlinks work only in user checkouts.+    -}+    | RepoModeBareUserOnly+    {- ^+    Same as BARE_USER, but all metadata is not stored, so it can only be used for user checkouts. Does not need xattrs.+    -}+    | AnotherRepoMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoMode where+    fromEnum RepoModeBare = 0+    fromEnum RepoModeArchive = 1+    fromEnum RepoModeArchiveZ2 = 1+    fromEnum RepoModeBareUser = 2+    fromEnum RepoModeBareUserOnly = 3+    fromEnum (AnotherRepoMode k) = k++    toEnum 0 = RepoModeBare+    toEnum 1 = RepoModeArchive+    toEnum 1 = RepoModeArchiveZ2+    toEnum 2 = RepoModeBareUser+    toEnum 3 = RepoModeBareUserOnly+    toEnum k = AnotherRepoMode k++instance P.Ord RepoMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoCommitIterResult+{- |+/No description available in the introspection data./+-}+data RepoCommitIterResult = +      RepoCommitIterResultError+    {- ^+    /No description available in the introspection data./+    -}+    | RepoCommitIterResultEnd+    {- ^+    /No description available in the introspection data./+    -}+    | RepoCommitIterResultFile+    {- ^+    /No description available in the introspection data./+    -}+    | RepoCommitIterResultDir+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherRepoCommitIterResult Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCommitIterResult where+    fromEnum RepoCommitIterResultError = 0+    fromEnum RepoCommitIterResultEnd = 1+    fromEnum RepoCommitIterResultFile = 2+    fromEnum RepoCommitIterResultDir = 3+    fromEnum (AnotherRepoCommitIterResult k) = k++    toEnum 0 = RepoCommitIterResultError+    toEnum 1 = RepoCommitIterResultEnd+    toEnum 2 = RepoCommitIterResultFile+    toEnum 3 = RepoCommitIterResultDir+    toEnum k = AnotherRepoCommitIterResult k++instance P.Ord RepoCommitIterResult where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoCommitFilterResult+{- |+/No description available in the introspection data./+-}+data RepoCommitFilterResult = +      RepoCommitFilterResultAllow+    {- ^+    Do commit this object+    -}+    | RepoCommitFilterResultSkip+    {- ^+    Ignore this object+    -}+    | AnotherRepoCommitFilterResult Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCommitFilterResult where+    fromEnum RepoCommitFilterResultAllow = 0+    fromEnum RepoCommitFilterResultSkip = 1+    fromEnum (AnotherRepoCommitFilterResult k) = k++    toEnum 0 = RepoCommitFilterResultAllow+    toEnum 1 = RepoCommitFilterResultSkip+    toEnum k = AnotherRepoCommitFilterResult k++instance P.Ord RepoCommitFilterResult where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoCheckoutOverwriteMode+{- |+/No description available in the introspection data./+-}+data RepoCheckoutOverwriteMode = +      RepoCheckoutOverwriteModeNone+    {- ^+    No special options+    -}+    | RepoCheckoutOverwriteModeUnionFiles+    {- ^+    When layering checkouts, @/unlink()/@ and replace existing files, but do not modify existing directories (unless whiteouts are enabled, then directories are replaced)+    -}+    | RepoCheckoutOverwriteModeAddFiles+    {- ^+    Only add new files\/directories+    -}+    | RepoCheckoutOverwriteModeUnionIdentical+    {- ^+    Like UNION_FILES, but error if files are not identical (requires hardlink checkouts)+    -}+    | AnotherRepoCheckoutOverwriteMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCheckoutOverwriteMode where+    fromEnum RepoCheckoutOverwriteModeNone = 0+    fromEnum RepoCheckoutOverwriteModeUnionFiles = 1+    fromEnum RepoCheckoutOverwriteModeAddFiles = 2+    fromEnum RepoCheckoutOverwriteModeUnionIdentical = 3+    fromEnum (AnotherRepoCheckoutOverwriteMode k) = k++    toEnum 0 = RepoCheckoutOverwriteModeNone+    toEnum 1 = RepoCheckoutOverwriteModeUnionFiles+    toEnum 2 = RepoCheckoutOverwriteModeAddFiles+    toEnum 3 = RepoCheckoutOverwriteModeUnionIdentical+    toEnum k = AnotherRepoCheckoutOverwriteMode k++instance P.Ord RepoCheckoutOverwriteMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoCheckoutMode+{- |+/No description available in the introspection data./+-}+data RepoCheckoutMode = +      RepoCheckoutModeNone+    {- ^+    No special options+    -}+    | RepoCheckoutModeUser+    {- ^+    Ignore uid\/gid of files+    -}+    | AnotherRepoCheckoutMode Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCheckoutMode where+    fromEnum RepoCheckoutModeNone = 0+    fromEnum RepoCheckoutModeUser = 1+    fromEnum (AnotherRepoCheckoutMode k) = k++    toEnum 0 = RepoCheckoutModeNone+    toEnum 1 = RepoCheckoutModeUser+    toEnum k = AnotherRepoCheckoutMode k++instance P.Ord RepoCheckoutMode where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum RepoCheckoutFilterResult+{- |+/No description available in the introspection data./++/Since: 2018.2/+-}+data RepoCheckoutFilterResult = +      RepoCheckoutFilterResultAllow+    {- ^+    Do checkout this object+    -}+    | RepoCheckoutFilterResultSkip+    {- ^+    Ignore this object+    -}+    | AnotherRepoCheckoutFilterResult Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCheckoutFilterResult where+    fromEnum RepoCheckoutFilterResultAllow = 0+    fromEnum RepoCheckoutFilterResultSkip = 1+    fromEnum (AnotherRepoCheckoutFilterResult k) = k++    toEnum 0 = RepoCheckoutFilterResultAllow+    toEnum 1 = RepoCheckoutFilterResultSkip+    toEnum k = AnotherRepoCheckoutFilterResult k++instance P.Ord RepoCheckoutFilterResult where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum ObjectType+{- |+Enumeration for core object types; 'GI.OSTree.Enums.ObjectTypeFile' is for+content, the other types are metadata.+-}+data ObjectType = +      ObjectTypeFile+    {- ^+    Content; regular file, symbolic link+    -}+    | ObjectTypeDirTree+    {- ^+    List of children (trees or files), and metadata+    -}+    | ObjectTypeDirMeta+    {- ^+    Directory metadata+    -}+    | ObjectTypeCommit+    {- ^+    Toplevel object, refers to tree and dirmeta for root+    -}+    | ObjectTypeTombstoneCommit+    {- ^+    Toplevel object, refers to a deleted commit+    -}+    | ObjectTypeCommitMeta+    {- ^+    Detached metadata for a commit+    -}+    | ObjectTypePayloadLink+    {- ^+    Symlink to a .file given its checksum on the payload only.+    -}+    | AnotherObjectType Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ObjectType where+    fromEnum ObjectTypeFile = 1+    fromEnum ObjectTypeDirTree = 2+    fromEnum ObjectTypeDirMeta = 3+    fromEnum ObjectTypeCommit = 4+    fromEnum ObjectTypeTombstoneCommit = 5+    fromEnum ObjectTypeCommitMeta = 6+    fromEnum ObjectTypePayloadLink = 7+    fromEnum (AnotherObjectType k) = k++    toEnum 1 = ObjectTypeFile+    toEnum 2 = ObjectTypeDirTree+    toEnum 3 = ObjectTypeDirMeta+    toEnum 4 = ObjectTypeCommit+    toEnum 5 = ObjectTypeTombstoneCommit+    toEnum 6 = ObjectTypeCommitMeta+    toEnum 7 = ObjectTypePayloadLink+    toEnum k = AnotherObjectType k++instance P.Ord ObjectType where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum GpgSignatureFormatFlags+{- |+Formatting flags for 'GI.OSTree.Objects.GpgVerifyResult.gpgVerifyResultDescribe'.  Currently+there\'s only one possible output format, but this enumeration allows+for future variations.+-}+data GpgSignatureFormatFlags = +      GpgSignatureFormatFlagsGpgSignatureFormatDefault+    {- ^+    Use the default output format+    -}+    | AnotherGpgSignatureFormatFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum GpgSignatureFormatFlags where+    fromEnum GpgSignatureFormatFlagsGpgSignatureFormatDefault = 0+    fromEnum (AnotherGpgSignatureFormatFlags k) = k++    toEnum 0 = GpgSignatureFormatFlagsGpgSignatureFormatDefault+    toEnum k = AnotherGpgSignatureFormatFlags k++instance P.Ord GpgSignatureFormatFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum GpgSignatureAttr+{- |+Signature attributes available from an 'GI.OSTree.Objects.GpgVerifyResult.GpgVerifyResult'.+The attribute\'s 'GI.GLib.Structs.VariantType.VariantType' is shown in brackets.+-}+data GpgSignatureAttr = +      GpgSignatureAttrValid+    {- ^+    [@/G_VARIANT_TYPE_BOOLEAN/@] Is the signature valid?+    -}+    | GpgSignatureAttrSigExpired+    {- ^+    [@/G_VARIANT_TYPE_BOOLEAN/@] Has the signature expired?+    -}+    | GpgSignatureAttrKeyExpired+    {- ^+    [@/G_VARIANT_TYPE_BOOLEAN/@] Has the signing key expired?+    -}+    | GpgSignatureAttrKeyRevoked+    {- ^+    [@/G_VARIANT_TYPE_BOOLEAN/@] Has the signing key been revoked?+    -}+    | GpgSignatureAttrKeyMissing+    {- ^+    [@/G_VARIANT_TYPE_BOOLEAN/@] Is the signing key missing?+    -}+    | GpgSignatureAttrFingerprint+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] Fingerprint of the signing key+    -}+    | GpgSignatureAttrTimestamp+    {- ^+    [@/G_VARIANT_TYPE_INT64/@] Signature creation Unix timestamp+    -}+    | GpgSignatureAttrExpTimestamp+    {- ^+    [@/G_VARIANT_TYPE_INT64/@] Signature expiration Unix timestamp (0 if no+      expiration)+    -}+    | GpgSignatureAttrPubkeyAlgoName+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] Name of the public key algorithm used to create+      the signature+    -}+    | GpgSignatureAttrHashAlgoName+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] Name of the hash algorithm used to create the+      signature+    -}+    | GpgSignatureAttrUserName+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] The name of the signing key\'s primary user+    -}+    | GpgSignatureAttrUserEmail+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] The email address of the signing key\'s primary+      user+    -}+    | GpgSignatureAttrFingerprintPrimary+    {- ^+    [@/G_VARIANT_TYPE_STRING/@] Fingerprint of the signing key\'s primary key+      (will be the same as OSTREE_GPG_SIGNATURE_ATTR_FINGERPRINT if the+      the signature is already from the primary key rather than a subkey,+      and will be the empty string if the key is missing.)+    -}+    | AnotherGpgSignatureAttr Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum GpgSignatureAttr where+    fromEnum GpgSignatureAttrValid = 0+    fromEnum GpgSignatureAttrSigExpired = 1+    fromEnum GpgSignatureAttrKeyExpired = 2+    fromEnum GpgSignatureAttrKeyRevoked = 3+    fromEnum GpgSignatureAttrKeyMissing = 4+    fromEnum GpgSignatureAttrFingerprint = 5+    fromEnum GpgSignatureAttrTimestamp = 6+    fromEnum GpgSignatureAttrExpTimestamp = 7+    fromEnum GpgSignatureAttrPubkeyAlgoName = 8+    fromEnum GpgSignatureAttrHashAlgoName = 9+    fromEnum GpgSignatureAttrUserName = 10+    fromEnum GpgSignatureAttrUserEmail = 11+    fromEnum GpgSignatureAttrFingerprintPrimary = 12+    fromEnum (AnotherGpgSignatureAttr k) = k++    toEnum 0 = GpgSignatureAttrValid+    toEnum 1 = GpgSignatureAttrSigExpired+    toEnum 2 = GpgSignatureAttrKeyExpired+    toEnum 3 = GpgSignatureAttrKeyRevoked+    toEnum 4 = GpgSignatureAttrKeyMissing+    toEnum 5 = GpgSignatureAttrFingerprint+    toEnum 6 = GpgSignatureAttrTimestamp+    toEnum 7 = GpgSignatureAttrExpTimestamp+    toEnum 8 = GpgSignatureAttrPubkeyAlgoName+    toEnum 9 = GpgSignatureAttrHashAlgoName+    toEnum 10 = GpgSignatureAttrUserName+    toEnum 11 = GpgSignatureAttrUserEmail+    toEnum 12 = GpgSignatureAttrFingerprintPrimary+    toEnum k = AnotherGpgSignatureAttr k++instance P.Ord GpgSignatureAttr where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++-- Enum GpgError+{- |+Errors returned by signature creation and verification operations in OSTree.+These may be returned by any API which creates or verifies signatures.++/Since: 2017.10/+-}+data GpgError = +      GpgErrorNoSignature+    {- ^+    A signature was expected, but not found.+    -}+    | GpgErrorInvalidSignature+    {- ^+    A signature was malformed.+    -}+    | GpgErrorMissingKey+    {- ^+    A signature was found, but was created with a key not in the configured keyrings.+    -}+    | AnotherGpgError Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum GpgError where+    fromEnum GpgErrorNoSignature = 0+    fromEnum GpgErrorInvalidSignature = 1+    fromEnum GpgErrorMissingKey = 2+    fromEnum (AnotherGpgError k) = k++    toEnum 0 = GpgErrorNoSignature+    toEnum 1 = GpgErrorInvalidSignature+    toEnum 2 = GpgErrorMissingKey+    toEnum k = AnotherGpgError k++instance P.Ord GpgError where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance GErrorClass GpgError where+    gerrorClassDomain _ = "OstreeGpgError"++-- | Catch exceptions of type `GpgError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.+catchGpgError ::+    IO a ->+    (GpgError -> GErrorMessage -> IO a) ->+    IO a+catchGpgError = catchGErrorJustDomain++-- | Handle exceptions of type `GpgError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.+handleGpgError ::+    (GpgError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleGpgError = handleGErrorJustDomain++-- Enum DeploymentUnlockedState+{- |+/No description available in the introspection data./+-}+data DeploymentUnlockedState = +      DeploymentUnlockedStateNone+    {- ^+    /No description available in the introspection data./+    -}+    | DeploymentUnlockedStateDevelopment+    {- ^+    /No description available in the introspection data./+    -}+    | DeploymentUnlockedStateHotfix+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherDeploymentUnlockedState Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum DeploymentUnlockedState where+    fromEnum DeploymentUnlockedStateNone = 0+    fromEnum DeploymentUnlockedStateDevelopment = 1+    fromEnum DeploymentUnlockedStateHotfix = 2+    fromEnum (AnotherDeploymentUnlockedState k) = k++    toEnum 0 = DeploymentUnlockedStateNone+    toEnum 1 = DeploymentUnlockedStateDevelopment+    toEnum 2 = DeploymentUnlockedStateHotfix+    toEnum k = AnotherDeploymentUnlockedState k++instance P.Ord DeploymentUnlockedState where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++

@@ -0,0 +1,52 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.OSTree.Enums where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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++data StaticDeltaGenerateOpt+instance P.Enum StaticDeltaGenerateOpt where+data RepoRemoteChange+instance P.Enum RepoRemoteChange where+data RepoPruneFlags+instance P.Enum RepoPruneFlags where+data RepoMode+instance P.Enum RepoMode where+data RepoCommitIterResult+instance P.Enum RepoCommitIterResult where+data RepoCommitFilterResult+instance P.Enum RepoCommitFilterResult where+data RepoCheckoutOverwriteMode+instance P.Enum RepoCheckoutOverwriteMode where+data RepoCheckoutMode+instance P.Enum RepoCheckoutMode where+data RepoCheckoutFilterResult+instance P.Enum RepoCheckoutFilterResult where+data ObjectType+instance P.Enum ObjectType where+data GpgSignatureFormatFlags+instance P.Enum GpgSignatureFormatFlags where+data GpgSignatureAttr+instance P.Enum GpgSignatureAttr where+data GpgError+instance P.Enum GpgError where+data DeploymentUnlockedState+instance P.Enum DeploymentUnlockedState where

@@ -0,0 +1,624 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Flags+    ( ++ -- * Flags+-- ** ChecksumFlags #flag:ChecksumFlags#++    ChecksumFlags(..)                       ,+++-- ** DiffFlags #flag:DiffFlags#++    DiffFlags(..)                           ,+++-- ** RepoCommitModifierFlags #flag:RepoCommitModifierFlags#++    RepoCommitModifierFlags(..)             ,+++-- ** RepoCommitState #flag:RepoCommitState#++    RepoCommitState(..)                     ,+++-- ** RepoCommitTraverseFlags #flag:RepoCommitTraverseFlags#++    RepoCommitTraverseFlags(..)             ,+++-- ** RepoListObjectsFlags #flag:RepoListObjectsFlags#++    RepoListObjectsFlags(..)                ,+++-- ** RepoListRefsExtFlags #flag:RepoListRefsExtFlags#++    RepoListRefsExtFlags(..)                ,+++-- ** RepoPullFlags #flag:RepoPullFlags#++    RepoPullFlags(..)                       ,+++-- ** RepoResolveRevExtFlags #flag:RepoResolveRevExtFlags#++    RepoResolveRevExtFlags(..)              ,+++-- ** SePolicyRestoreconFlags #flag:SePolicyRestoreconFlags#++    SePolicyRestoreconFlags(..)             ,+++-- ** SysrootSimpleWriteDeploymentFlags #flag:SysrootSimpleWriteDeploymentFlags#++    SysrootSimpleWriteDeploymentFlags(..)   ,+++-- ** SysrootUpgraderFlags #flag:SysrootUpgraderFlags#++    SysrootUpgraderFlags(..)                ,+++-- ** SysrootUpgraderPullFlags #flag:SysrootUpgraderPullFlags#++    SysrootUpgraderPullFlags(..)            ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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+++-- Flags SysrootUpgraderPullFlags+{- |+/No description available in the introspection data./+-}+data SysrootUpgraderPullFlags = +      SysrootUpgraderPullFlagsNone+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootUpgraderPullFlagsAllowOlder+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootUpgraderPullFlagsSynthetic+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherSysrootUpgraderPullFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SysrootUpgraderPullFlags where+    fromEnum SysrootUpgraderPullFlagsNone = 0+    fromEnum SysrootUpgraderPullFlagsAllowOlder = 1+    fromEnum SysrootUpgraderPullFlagsSynthetic = 2+    fromEnum (AnotherSysrootUpgraderPullFlags k) = k++    toEnum 0 = SysrootUpgraderPullFlagsNone+    toEnum 1 = SysrootUpgraderPullFlagsAllowOlder+    toEnum 2 = SysrootUpgraderPullFlagsSynthetic+    toEnum k = AnotherSysrootUpgraderPullFlags k++instance P.Ord SysrootUpgraderPullFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag SysrootUpgraderPullFlags++-- Flags SysrootUpgraderFlags+{- |+Flags controlling operation of an 'GI.OSTree.Objects.SysrootUpgrader.SysrootUpgrader'.+-}+data SysrootUpgraderFlags = +      SysrootUpgraderFlagsIgnoreUnconfigured+    {- ^+    Do not error if the origin has an unconfigured-state key+    -}+    | AnotherSysrootUpgraderFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SysrootUpgraderFlags where+    fromEnum SysrootUpgraderFlagsIgnoreUnconfigured = 2+    fromEnum (AnotherSysrootUpgraderFlags k) = k++    toEnum 2 = SysrootUpgraderFlagsIgnoreUnconfigured+    toEnum k = AnotherSysrootUpgraderFlags k++instance P.Ord SysrootUpgraderFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++foreign import ccall "ostree_sysroot_upgrader_flags_get_type" c_ostree_sysroot_upgrader_flags_get_type :: +    IO GType++instance BoxedFlags SysrootUpgraderFlags where+    boxedFlagsType _ = c_ostree_sysroot_upgrader_flags_get_type++instance IsGFlag SysrootUpgraderFlags++-- Flags SysrootSimpleWriteDeploymentFlags+{- |+/No description available in the introspection data./+-}+data SysrootSimpleWriteDeploymentFlags = +      SysrootSimpleWriteDeploymentFlagsNone+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootSimpleWriteDeploymentFlagsRetain+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootSimpleWriteDeploymentFlagsNotDefault+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootSimpleWriteDeploymentFlagsNoClean+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootSimpleWriteDeploymentFlagsRetainPending+    {- ^+    /No description available in the introspection data./+    -}+    | SysrootSimpleWriteDeploymentFlagsRetainRollback+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherSysrootSimpleWriteDeploymentFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SysrootSimpleWriteDeploymentFlags where+    fromEnum SysrootSimpleWriteDeploymentFlagsNone = 0+    fromEnum SysrootSimpleWriteDeploymentFlagsRetain = 1+    fromEnum SysrootSimpleWriteDeploymentFlagsNotDefault = 2+    fromEnum SysrootSimpleWriteDeploymentFlagsNoClean = 4+    fromEnum SysrootSimpleWriteDeploymentFlagsRetainPending = 8+    fromEnum SysrootSimpleWriteDeploymentFlagsRetainRollback = 16+    fromEnum (AnotherSysrootSimpleWriteDeploymentFlags k) = k++    toEnum 0 = SysrootSimpleWriteDeploymentFlagsNone+    toEnum 1 = SysrootSimpleWriteDeploymentFlagsRetain+    toEnum 2 = SysrootSimpleWriteDeploymentFlagsNotDefault+    toEnum 4 = SysrootSimpleWriteDeploymentFlagsNoClean+    toEnum 8 = SysrootSimpleWriteDeploymentFlagsRetainPending+    toEnum 16 = SysrootSimpleWriteDeploymentFlagsRetainRollback+    toEnum k = AnotherSysrootSimpleWriteDeploymentFlags k++instance P.Ord SysrootSimpleWriteDeploymentFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag SysrootSimpleWriteDeploymentFlags++-- Flags SePolicyRestoreconFlags+{- |+/No description available in the introspection data./+-}+data SePolicyRestoreconFlags = +      SePolicyRestoreconFlagsNone+    {- ^+    /No description available in the introspection data./+    -}+    | SePolicyRestoreconFlagsAllowNolabel+    {- ^+    /No description available in the introspection data./+    -}+    | SePolicyRestoreconFlagsKeepExisting+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherSePolicyRestoreconFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum SePolicyRestoreconFlags where+    fromEnum SePolicyRestoreconFlagsNone = 0+    fromEnum SePolicyRestoreconFlagsAllowNolabel = 1+    fromEnum SePolicyRestoreconFlagsKeepExisting = 2+    fromEnum (AnotherSePolicyRestoreconFlags k) = k++    toEnum 0 = SePolicyRestoreconFlagsNone+    toEnum 1 = SePolicyRestoreconFlagsAllowNolabel+    toEnum 2 = SePolicyRestoreconFlagsKeepExisting+    toEnum k = AnotherSePolicyRestoreconFlags k++instance P.Ord SePolicyRestoreconFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag SePolicyRestoreconFlags++-- Flags RepoResolveRevExtFlags+{- |+/No description available in the introspection data./+-}+data RepoResolveRevExtFlags = +      RepoResolveRevExtFlagsNone+    {- ^+    No flags.+    -}+    | RepoResolveRevExtFlagsLocalOnly+    {- ^+    Exclude remote and mirrored refs. Since: 2019.2+    -}+    | AnotherRepoResolveRevExtFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoResolveRevExtFlags where+    fromEnum RepoResolveRevExtFlagsNone = 0+    fromEnum RepoResolveRevExtFlagsLocalOnly = 1+    fromEnum (AnotherRepoResolveRevExtFlags k) = k++    toEnum 0 = RepoResolveRevExtFlagsNone+    toEnum 1 = RepoResolveRevExtFlagsLocalOnly+    toEnum k = AnotherRepoResolveRevExtFlags k++instance P.Ord RepoResolveRevExtFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoResolveRevExtFlags++-- Flags RepoPullFlags+{- |+/No description available in the introspection data./+-}+data RepoPullFlags = +      RepoPullFlagsNone+    {- ^+    No special options for pull+    -}+    | RepoPullFlagsMirror+    {- ^+    Write out refs suitable for mirrors and fetch all refs if none requested+    -}+    | RepoPullFlagsCommitOnly+    {- ^+    Fetch only the commit metadata+    -}+    | RepoPullFlagsUntrusted+    {- ^+    Do verify checksums of local (filesystem-accessible) repositories (defaults on for HTTP)+    -}+    | RepoPullFlagsBareuseronlyFiles+    {- ^+    Since 2017.7.  Reject writes of content objects with modes outside of 0775.+    -}+    | RepoPullFlagsTrustedHttp+    {- ^+    Don\'t verify checksums of objects HTTP repositories (Since: 2017.12)+    -}+    | AnotherRepoPullFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoPullFlags where+    fromEnum RepoPullFlagsNone = 0+    fromEnum RepoPullFlagsMirror = 1+    fromEnum RepoPullFlagsCommitOnly = 2+    fromEnum RepoPullFlagsUntrusted = 4+    fromEnum RepoPullFlagsBareuseronlyFiles = 8+    fromEnum RepoPullFlagsTrustedHttp = 16+    fromEnum (AnotherRepoPullFlags k) = k++    toEnum 0 = RepoPullFlagsNone+    toEnum 1 = RepoPullFlagsMirror+    toEnum 2 = RepoPullFlagsCommitOnly+    toEnum 4 = RepoPullFlagsUntrusted+    toEnum 8 = RepoPullFlagsBareuseronlyFiles+    toEnum 16 = RepoPullFlagsTrustedHttp+    toEnum k = AnotherRepoPullFlags k++instance P.Ord RepoPullFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoPullFlags++-- Flags RepoListRefsExtFlags+{- |+/No description available in the introspection data./+-}+data RepoListRefsExtFlags = +      RepoListRefsExtFlagsNone+    {- ^+    No flags.+    -}+    | RepoListRefsExtFlagsAliases+    {- ^+    Only list aliases.  Since: 2017.10+    -}+    | RepoListRefsExtFlagsExcludeRemotes+    {- ^+    Exclude remote refs.  Since: 2017.11+    -}+    | RepoListRefsExtFlagsExcludeMirrors+    {- ^+    Exclude mirrored refs.  Since: 2019.2+    -}+    | AnotherRepoListRefsExtFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoListRefsExtFlags where+    fromEnum RepoListRefsExtFlagsNone = 0+    fromEnum RepoListRefsExtFlagsAliases = 1+    fromEnum RepoListRefsExtFlagsExcludeRemotes = 2+    fromEnum RepoListRefsExtFlagsExcludeMirrors = 4+    fromEnum (AnotherRepoListRefsExtFlags k) = k++    toEnum 0 = RepoListRefsExtFlagsNone+    toEnum 1 = RepoListRefsExtFlagsAliases+    toEnum 2 = RepoListRefsExtFlagsExcludeRemotes+    toEnum 4 = RepoListRefsExtFlagsExcludeMirrors+    toEnum k = AnotherRepoListRefsExtFlags k++instance P.Ord RepoListRefsExtFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoListRefsExtFlags++-- Flags RepoListObjectsFlags+{- |+/No description available in the introspection data./+-}+data RepoListObjectsFlags = +      RepoListObjectsFlagsLoose+    {- ^+    List only loose (plain file) objects+    -}+    | RepoListObjectsFlagsPacked+    {- ^+    List only packed (compacted into blobs) objects+    -}+    | RepoListObjectsFlagsAll+    {- ^+    List all objects+    -}+    | RepoListObjectsFlagsNoParents+    {- ^+    Only list objects in this repo, not parents+    -}+    | AnotherRepoListObjectsFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoListObjectsFlags where+    fromEnum RepoListObjectsFlagsLoose = 1+    fromEnum RepoListObjectsFlagsPacked = 2+    fromEnum RepoListObjectsFlagsAll = 4+    fromEnum RepoListObjectsFlagsNoParents = 8+    fromEnum (AnotherRepoListObjectsFlags k) = k++    toEnum 1 = RepoListObjectsFlagsLoose+    toEnum 2 = RepoListObjectsFlagsPacked+    toEnum 4 = RepoListObjectsFlagsAll+    toEnum 8 = RepoListObjectsFlagsNoParents+    toEnum k = AnotherRepoListObjectsFlags k++instance P.Ord RepoListObjectsFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoListObjectsFlags++-- Flags RepoCommitTraverseFlags+{- |+/No description available in the introspection data./+-}+data RepoCommitTraverseFlags = +      RepoCommitTraverseFlagsRepoCommitTraverseFlagNone+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherRepoCommitTraverseFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCommitTraverseFlags where+    fromEnum RepoCommitTraverseFlagsRepoCommitTraverseFlagNone = 1+    fromEnum (AnotherRepoCommitTraverseFlags k) = k++    toEnum 1 = RepoCommitTraverseFlagsRepoCommitTraverseFlagNone+    toEnum k = AnotherRepoCommitTraverseFlags k++instance P.Ord RepoCommitTraverseFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoCommitTraverseFlags++-- Flags RepoCommitState+{- |+Flags representing the state of a commit in the local repository, as returned+by 'GI.OSTree.Objects.Repo.repoLoadCommit'.++/Since: 2015.7/+-}+data RepoCommitState = +      RepoCommitStateNormal+    {- ^+    Commit is complete. This is the default.+       (Since: 2017.14.)+    -}+    | RepoCommitStatePartial+    {- ^+    One or more objects are missing from the+       local copy of the commit, but metadata is present. (Since: 2015.7.)+    -}+    | AnotherRepoCommitState Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCommitState where+    fromEnum RepoCommitStateNormal = 0+    fromEnum RepoCommitStatePartial = 1+    fromEnum (AnotherRepoCommitState k) = k++    toEnum 0 = RepoCommitStateNormal+    toEnum 1 = RepoCommitStatePartial+    toEnum k = AnotherRepoCommitState k++instance P.Ord RepoCommitState where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoCommitState++-- Flags RepoCommitModifierFlags+{- |+/No description available in the introspection data./+-}+data RepoCommitModifierFlags = +      RepoCommitModifierFlagsNone+    {- ^+    No special flags+    -}+    | RepoCommitModifierFlagsSkipXattrs+    {- ^+    Do not process extended attributes+    -}+    | RepoCommitModifierFlagsGenerateSizes+    {- ^+    Generate size information.+    -}+    | RepoCommitModifierFlagsCanonicalPermissions+    {- ^+    Canonicalize permissions for bare-user-only mode.+    -}+    | RepoCommitModifierFlagsErrorOnUnlabeled+    {- ^+    Emit an error if configured SELinux policy does not provide a label+    -}+    | RepoCommitModifierFlagsConsume+    {- ^+    Delete added files\/directories after commit; Since: 2017.13+    -}+    | RepoCommitModifierFlagsDevinoCanonical+    {- ^+    If a devino cache hit is found, skip modifier filters (non-directories only); Since: 2017.14+    -}+    | AnotherRepoCommitModifierFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum RepoCommitModifierFlags where+    fromEnum RepoCommitModifierFlagsNone = 0+    fromEnum RepoCommitModifierFlagsSkipXattrs = 1+    fromEnum RepoCommitModifierFlagsGenerateSizes = 2+    fromEnum RepoCommitModifierFlagsCanonicalPermissions = 4+    fromEnum RepoCommitModifierFlagsErrorOnUnlabeled = 8+    fromEnum RepoCommitModifierFlagsConsume = 16+    fromEnum RepoCommitModifierFlagsDevinoCanonical = 32+    fromEnum (AnotherRepoCommitModifierFlags k) = k++    toEnum 0 = RepoCommitModifierFlagsNone+    toEnum 1 = RepoCommitModifierFlagsSkipXattrs+    toEnum 2 = RepoCommitModifierFlagsGenerateSizes+    toEnum 4 = RepoCommitModifierFlagsCanonicalPermissions+    toEnum 8 = RepoCommitModifierFlagsErrorOnUnlabeled+    toEnum 16 = RepoCommitModifierFlagsConsume+    toEnum 32 = RepoCommitModifierFlagsDevinoCanonical+    toEnum k = AnotherRepoCommitModifierFlags k++instance P.Ord RepoCommitModifierFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag RepoCommitModifierFlags++-- Flags DiffFlags+{- |+/No description available in the introspection data./+-}+data DiffFlags = +      DiffFlagsNone+    {- ^+    /No description available in the introspection data./+    -}+    | DiffFlagsIgnoreXattrs+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherDiffFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum DiffFlags where+    fromEnum DiffFlagsNone = 0+    fromEnum DiffFlagsIgnoreXattrs = 1+    fromEnum (AnotherDiffFlags k) = k++    toEnum 0 = DiffFlagsNone+    toEnum 1 = DiffFlagsIgnoreXattrs+    toEnum k = AnotherDiffFlags k++instance P.Ord DiffFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag DiffFlags++-- Flags ChecksumFlags+{- |+/No description available in the introspection data./++/Since: 2017.13/+-}+data ChecksumFlags = +      ChecksumFlagsNone+    {- ^+    /No description available in the introspection data./+    -}+    | ChecksumFlagsIgnoreXattrs+    {- ^+    /No description available in the introspection data./+    -}+    | AnotherChecksumFlags Int+    -- ^ Catch-all for unknown values+    deriving (Show, Eq)++instance P.Enum ChecksumFlags where+    fromEnum ChecksumFlagsNone = 0+    fromEnum ChecksumFlagsIgnoreXattrs = 1+    fromEnum (AnotherChecksumFlags k) = k++    toEnum 0 = ChecksumFlagsNone+    toEnum 1 = ChecksumFlagsIgnoreXattrs+    toEnum k = AnotherChecksumFlags k++instance P.Ord ChecksumFlags where+    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)++instance IsGFlag ChecksumFlags++

@@ -0,0 +1,64 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.OSTree.Flags where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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++data SysrootUpgraderPullFlags+instance P.Enum SysrootUpgraderPullFlags where+instance IsGFlag SysrootUpgraderPullFlags+data SysrootUpgraderFlags+instance P.Enum SysrootUpgraderFlags where+instance BoxedFlags SysrootUpgraderFlags where+instance IsGFlag SysrootUpgraderFlags+data SysrootSimpleWriteDeploymentFlags+instance P.Enum SysrootSimpleWriteDeploymentFlags where+instance IsGFlag SysrootSimpleWriteDeploymentFlags+data SePolicyRestoreconFlags+instance P.Enum SePolicyRestoreconFlags where+instance IsGFlag SePolicyRestoreconFlags+data RepoResolveRevExtFlags+instance P.Enum RepoResolveRevExtFlags where+instance IsGFlag RepoResolveRevExtFlags+data RepoPullFlags+instance P.Enum RepoPullFlags where+instance IsGFlag RepoPullFlags+data RepoListRefsExtFlags+instance P.Enum RepoListRefsExtFlags where+instance IsGFlag RepoListRefsExtFlags+data RepoListObjectsFlags+instance P.Enum RepoListObjectsFlags where+instance IsGFlag RepoListObjectsFlags+data RepoCommitTraverseFlags+instance P.Enum RepoCommitTraverseFlags where+instance IsGFlag RepoCommitTraverseFlags+data RepoCommitState+instance P.Enum RepoCommitState where+instance IsGFlag RepoCommitState+data RepoCommitModifierFlags+instance P.Enum RepoCommitModifierFlags where+instance IsGFlag RepoCommitModifierFlags+data DiffFlags+instance P.Enum DiffFlags where+instance IsGFlag DiffFlags+data ChecksumFlags+instance P.Enum ChecksumFlags where+instance IsGFlag ChecksumFlags

@@ -0,0 +1,2456 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Functions+    ( ++ -- * Methods+-- ** breakHardlink #method:breakHardlink#++    breakHardlink                           ,+++-- ** checkVersion #method:checkVersion#++    checkVersion                            ,+++-- ** checksumB64FromBytes #method:checksumB64FromBytes#++    checksumB64FromBytes                    ,+++-- ** checksumB64ToBytes #method:checksumB64ToBytes#++    checksumB64ToBytes                      ,+++-- ** checksumBytesPeek #method:checksumBytesPeek#++    checksumBytesPeek                       ,+++-- ** checksumBytesPeekValidate #method:checksumBytesPeekValidate#++    checksumBytesPeekValidate               ,+++-- ** checksumFile #method:checksumFile#++    checksumFile                            ,+++-- ** checksumFileAsync #method:checksumFileAsync#++    checksumFileAsync                       ,+++-- ** checksumFileAsyncFinish #method:checksumFileAsyncFinish#++    checksumFileAsyncFinish                 ,+++-- ** checksumFileAt #method:checksumFileAt#++    checksumFileAt                          ,+++-- ** checksumFileFromInput #method:checksumFileFromInput#++    checksumFileFromInput                   ,+++-- ** checksumFromBytes #method:checksumFromBytes#++    checksumFromBytes                       ,+++-- ** checksumFromBytesV #method:checksumFromBytesV#++    checksumFromBytesV                      ,+++-- ** checksumInplaceToBytes #method:checksumInplaceToBytes#++    checksumInplaceToBytes                  ,+++-- ** checksumToBytes #method:checksumToBytes#++    checksumToBytes                         ,+++-- ** checksumToBytesV #method:checksumToBytesV#++    checksumToBytesV                        ,+++-- ** cmd_Private__ #method:cmd_Private__#++    cmd_Private__                           ,+++-- ** cmpChecksumBytes #method:cmpChecksumBytes#++    cmpChecksumBytes                        ,+++-- ** commitGetContentChecksum #method:commitGetContentChecksum#++    commitGetContentChecksum                ,+++-- ** commitGetParent #method:commitGetParent#++    commitGetParent                         ,+++-- ** commitGetTimestamp #method:commitGetTimestamp#++    commitGetTimestamp                      ,+++-- ** contentFileParse #method:contentFileParse#++    contentFileParse                        ,+++-- ** contentFileParseAt #method:contentFileParseAt#++    contentFileParseAt                      ,+++-- ** contentStreamParse #method:contentStreamParse#++    contentStreamParse                      ,+++-- ** createDirectoryMetadata #method:createDirectoryMetadata#++    createDirectoryMetadata                 ,+++-- ** diffDirs #method:diffDirs#++    diffDirs                                ,+++-- ** diffDirsWithOptions #method:diffDirsWithOptions#++    diffDirsWithOptions                     ,+++-- ** diffPrint #method:diffPrint#++    diffPrint                               ,+++-- ** gpgErrorQuark #method:gpgErrorQuark#++    gpgErrorQuark                           ,+++-- ** hashObjectName #method:hashObjectName#++    hashObjectName                          ,+++-- ** metadataVariantType #method:metadataVariantType#++    metadataVariantType                     ,+++-- ** objectFromString #method:objectFromString#++    objectFromString                        ,+++-- ** objectNameDeserialize #method:objectNameDeserialize#++    objectNameDeserialize                   ,+++-- ** objectNameSerialize #method:objectNameSerialize#++    objectNameSerialize                     ,+++-- ** objectToString #method:objectToString#++    objectToString                          ,+++-- ** objectTypeFromString #method:objectTypeFromString#++    objectTypeFromString                    ,+++-- ** objectTypeToString #method:objectTypeToString#++    objectTypeToString                      ,+++-- ** parseRefspec #method:parseRefspec#++    parseRefspec                            ,+++-- ** rawFileToArchiveZ2Stream #method:rawFileToArchiveZ2Stream#++    rawFileToArchiveZ2Stream                ,+++-- ** rawFileToArchiveZ2StreamWithOptions #method:rawFileToArchiveZ2StreamWithOptions#++    rawFileToArchiveZ2StreamWithOptions     ,+++-- ** rawFileToContentStream #method:rawFileToContentStream#++    rawFileToContentStream                  ,+++-- ** validateChecksumString #method:validateChecksumString#++    validateChecksumString                  ,+++-- ** validateCollectionId #method:validateCollectionId#++    validateCollectionId                    ,+++-- ** validateRemoteName #method:validateRemoteName#++    validateRemoteName                      ,+++-- ** validateRev #method:validateRev#++    validateRev                             ,+++-- ** validateStructureofChecksumString #method:validateStructureofChecksumString#++    validateStructureofChecksumString       ,+++-- ** validateStructureofCommit #method:validateStructureofCommit#++    validateStructureofCommit               ,+++-- ** validateStructureofCsumV #method:validateStructureofCsumV#++    validateStructureofCsumV                ,+++-- ** validateStructureofDirmeta #method:validateStructureofDirmeta#++    validateStructureofDirmeta              ,+++-- ** validateStructureofDirtree #method:validateStructureofDirtree#++    validateStructureofDirtree              ,+++-- ** validateStructureofFileMode #method:validateStructureofFileMode#++    validateStructureofFileMode             ,+++-- ** validateStructureofObjtype #method:validateStructureofObjtype#++    validateStructureofObjtype              ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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 GI.GLib.Structs.VariantType as GLib.VariantType+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Interfaces.File as Gio.File+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import qualified GI.Gio.Objects.FileInfo as Gio.FileInfo+import qualified GI.Gio.Objects.InputStream as Gio.InputStream+import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums+import {-# SOURCE #-} qualified GI.OSTree.Flags as OSTree.Flags+import {-# SOURCE #-} qualified GI.OSTree.Structs.CmdPrivateVTable as OSTree.CmdPrivateVTable+import {-# SOURCE #-} qualified GI.OSTree.Structs.DiffDirsOptions as OSTree.DiffDirsOptions+import {-# SOURCE #-} qualified GI.OSTree.Structs.DiffItem as OSTree.DiffItem++-- function ostree_validate_structureof_objtype+-- Args : [Arg {argCName = "objtype", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_objtype" ostree_validate_structureof_objtype :: +    Word8 ->                                -- objtype : TBasicType TUInt8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./+-}+validateStructureofObjtype ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word8+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofObjtype objtype = liftIO $ do+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_objtype objtype+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_file_mode+-- Args : [Arg {argCName = "mode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A Unix filesystem mode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_file_mode" ostree_validate_structureof_file_mode :: +    Word32 ->                               -- mode : TBasicType TUInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./+-}+validateStructureofFileMode ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word32+    {- ^ /@mode@/: A Unix filesystem mode -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofFileMode mode = liftIO $ do+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_file_mode mode+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_dirtree+-- Args : [Arg {argCName = "dirtree", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A dirtree object, %OSTREE_OBJECT_TYPE_DIR_TREE", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_dirtree" ostree_validate_structureof_dirtree :: +    Ptr GVariant ->                         -- dirtree : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Use this to validate the basic structure of /@dirtree@/, independent of+any other objects it references.+-}+validateStructureofDirtree ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@dirtree@/: A dirtree object, 'GI.OSTree.Enums.ObjectTypeDirTree' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofDirtree dirtree = liftIO $ do+    dirtree' <- unsafeManagedPtrGetPtr dirtree+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_dirtree dirtree'+        touchManagedPtr dirtree+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_dirmeta+-- Args : [Arg {argCName = "dirmeta", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A dirmeta object, %OSTREE_OBJECT_TYPE_DIR_META", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_dirmeta" ostree_validate_structureof_dirmeta :: +    Ptr GVariant ->                         -- dirmeta : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Use this to validate the basic structure of /@dirmeta@/.+-}+validateStructureofDirmeta ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@dirmeta@/: A dirmeta object, 'GI.OSTree.Enums.ObjectTypeDirMeta' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofDirmeta dirmeta = liftIO $ do+    dirmeta' <- unsafeManagedPtrGetPtr dirmeta+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_dirmeta dirmeta'+        touchManagedPtr dirmeta+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_csum_v+-- Args : [Arg {argCName = "checksum", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant of type \"ay\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_csum_v" ostree_validate_structureof_csum_v :: +    Ptr GVariant ->                         -- checksum : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./+-}+validateStructureofCsumV ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@checksum@/: a 'GVariant' of type \"ay\" -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofCsumV checksum = liftIO $ do+    checksum' <- unsafeManagedPtrGetPtr checksum+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_csum_v checksum'+        touchManagedPtr checksum+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_commit+-- Args : [Arg {argCName = "commit", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A commit object, %OSTREE_OBJECT_TYPE_COMMIT", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_commit" ostree_validate_structureof_commit :: +    Ptr GVariant ->                         -- commit : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Use this to validate the basic structure of /@commit@/, independent of+any other objects it references.+-}+validateStructureofCommit ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@commit@/: A commit object, 'GI.OSTree.Enums.ObjectTypeCommit' -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofCommit commit = liftIO $ do+    commit' <- unsafeManagedPtrGetPtr commit+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_commit commit'+        touchManagedPtr commit+        return ()+     ) (do+        return ()+     )+++-- function ostree_validate_structureof_checksum_string+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an ASCII string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_structureof_checksum_string" ostree_validate_structureof_checksum_string :: +    CString ->                              -- checksum : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./+-}+validateStructureofChecksumString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: an ASCII string -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateStructureofChecksumString checksum = liftIO $ do+    checksum' <- textToCString checksum+    onException (do+        _ <- propagateGError $ ostree_validate_structureof_checksum_string checksum'+        freeMem checksum'+        return ()+     ) (do+        freeMem checksum'+     )+++-- function ostree_validate_rev+-- Args : [Arg {argCName = "rev", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A revision string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_rev" ostree_validate_rev :: +    CString ->                              -- rev : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./+-}+validateRev ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@rev@/: A revision string -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateRev rev = liftIO $ do+    rev' <- textToCString rev+    onException (do+        _ <- propagateGError $ ostree_validate_rev rev'+        freeMem rev'+        return ()+     ) (do+        freeMem rev'+     )+++-- function ostree_validate_remote_name+-- Args : [Arg {argCName = "remote_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A remote name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_remote_name" ostree_validate_remote_name :: +    CString ->                              -- remote_name : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+/No description available in the introspection data./++/Since: 2017.8/+-}+validateRemoteName ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@remoteName@/: A remote name -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateRemoteName remoteName = liftIO $ do+    remoteName' <- textToCString remoteName+    onException (do+        _ <- propagateGError $ ostree_validate_remote_name remoteName'+        freeMem remoteName'+        return ()+     ) (do+        freeMem remoteName'+     )+++-- function ostree_validate_collection_id+-- Args : [Arg {argCName = "collection_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A collection ID", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_collection_id" ostree_validate_collection_id :: +    CString ->                              -- collection_id : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Check whether the given /@collectionId@/ is valid. Return an error if it is+invalid or 'Nothing'.++Valid collection IDs are reverse DNS names:+ * They are composed of 1 or more elements separated by a period (@.@) character.+   All elements must contain at least one character.+ * Each element must only contain the ASCII characters @[A-Z][a-z][0-9]_@ and must not+   begin with a digit.+ * They must contain at least one @.@ (period) character (and thus at least two elements).+ * They must not begin with a @.@ (period) character.+ * They must not exceed 255 characters in length.++(This makes their format identical to D-Bus interface names, for consistency.)++/Since: 2018.6/+-}+validateCollectionId ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Maybe (T.Text)+    {- ^ /@collectionId@/: A collection ID -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateCollectionId collectionId = liftIO $ do+    maybeCollectionId <- case collectionId of+        Nothing -> return nullPtr+        Just jCollectionId -> do+            jCollectionId' <- textToCString jCollectionId+            return jCollectionId'+    onException (do+        _ <- propagateGError $ ostree_validate_collection_id maybeCollectionId+        freeMem maybeCollectionId+        return ()+     ) (do+        freeMem maybeCollectionId+     )+++-- function ostree_validate_checksum_string+-- Args : [Arg {argCName = "sha256", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "SHA256 hex string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_validate_checksum_string" ostree_validate_checksum_string :: +    CString ->                              -- sha256 : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Use this function to see if input strings are checksums.+-}+validateChecksumString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@sha256@/: SHA256 hex string -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+validateChecksumString sha256 = liftIO $ do+    sha256' <- textToCString sha256+    onException (do+        _ <- propagateGError $ ostree_validate_checksum_string sha256'+        freeMem sha256'+        return ()+     ) (do+        freeMem sha256'+     )+++-- function ostree_raw_file_to_content_stream+-- Args : [Arg {argCName = "input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File raw content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A file info", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xattrs", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Serialized object stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_raw_file_to_content_stream" ostree_raw_file_to_content_stream :: +    Ptr Gio.InputStream.InputStream ->      -- input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Gio.FileInfo.FileInfo ->            -- file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr GVariant ->                         -- xattrs : TVariant+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Word64 ->                           -- out_length : TBasicType TUInt64+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Convert from a \"bare\" file representation into an+OSTREE_OBJECT_TYPE_FILE stream.  This is a fundamental operation+for writing data to an 'GI.OSTree.Objects.Repo.Repo'.+-}+rawFileToContentStream ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@input@/: File raw content stream -}+    -> b+    {- ^ /@fileInfo@/: A file info -}+    -> Maybe (GVariant)+    {- ^ /@xattrs@/: Optional extended attributes -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ((Gio.InputStream.InputStream, Word64))+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+rawFileToContentStream input fileInfo xattrs cancellable = liftIO $ do+    input' <- unsafeManagedPtrCastPtr input+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    maybeXattrs <- case xattrs of+        Nothing -> return nullPtr+        Just jXattrs -> do+            jXattrs' <- unsafeManagedPtrGetPtr jXattrs+            return jXattrs'+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    outLength <- allocMem :: IO (Ptr Word64)+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_raw_file_to_content_stream input' fileInfo' maybeXattrs outInput outLength maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        outLength' <- peek outLength+        touchManagedPtr input+        touchManagedPtr fileInfo+        whenJust xattrs touchManagedPtr+        whenJust cancellable touchManagedPtr+        freeMem outInput+        freeMem outLength+        return (outInput'', outLength')+     ) (do+        freeMem outInput+        freeMem outLength+     )+++-- function ostree_raw_file_to_archive_z2_stream_with_options+-- Args : [Arg {argCName = "input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File raw content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A file info", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xattrs", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A GVariant `a{sv}` with an extensible set of flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Serialized object stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_raw_file_to_archive_z2_stream_with_options" ostree_raw_file_to_archive_z2_stream_with_options :: +    Ptr Gio.InputStream.InputStream ->      -- input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Gio.FileInfo.FileInfo ->            -- file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr GVariant ->                         -- xattrs : TVariant+    Ptr GVariant ->                         -- options : TVariant+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Like 'GI.OSTree.Functions.rawFileToArchiveZ2Stream', but supports an extensible set+of flags. The following flags are currently defined:++* @compression-level@ (@i@): Level of compression to use, 0–9, with 0 being+the least compression, and \<0 giving the default level (currently 6).+++/Since: 2017.3/+-}+rawFileToArchiveZ2StreamWithOptions ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@input@/: File raw content stream -}+    -> b+    {- ^ /@fileInfo@/: A file info -}+    -> Maybe (GVariant)+    {- ^ /@xattrs@/: Optional extended attributes -}+    -> Maybe (GVariant)+    {- ^ /@options@/: A GVariant @a{sv}@ with an extensible set of flags -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m (Gio.InputStream.InputStream)+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+rawFileToArchiveZ2StreamWithOptions input fileInfo xattrs options cancellable = liftIO $ do+    input' <- unsafeManagedPtrCastPtr input+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    maybeXattrs <- case xattrs of+        Nothing -> return nullPtr+        Just jXattrs -> do+            jXattrs' <- unsafeManagedPtrGetPtr jXattrs+            return jXattrs'+    maybeOptions <- case options of+        Nothing -> return nullPtr+        Just jOptions -> do+            jOptions' <- unsafeManagedPtrGetPtr jOptions+            return jOptions'+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_raw_file_to_archive_z2_stream_with_options input' fileInfo' maybeXattrs maybeOptions outInput maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        touchManagedPtr input+        touchManagedPtr fileInfo+        whenJust xattrs touchManagedPtr+        whenJust options touchManagedPtr+        whenJust cancellable touchManagedPtr+        freeMem outInput+        return outInput''+     ) (do+        freeMem outInput+     )+++-- function ostree_raw_file_to_archive_z2_stream+-- Args : [Arg {argCName = "input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File raw content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A file info", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xattrs", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Serialized object stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_raw_file_to_archive_z2_stream" ostree_raw_file_to_archive_z2_stream :: +    Ptr Gio.InputStream.InputStream ->      -- input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Gio.FileInfo.FileInfo ->            -- file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr GVariant ->                         -- xattrs : TVariant+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Convert from a \"bare\" file representation into an+OSTREE_OBJECT_TYPE_FILE stream suitable for ostree pull.+-}+rawFileToArchiveZ2Stream ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@input@/: File raw content stream -}+    -> b+    {- ^ /@fileInfo@/: A file info -}+    -> Maybe (GVariant)+    {- ^ /@xattrs@/: Optional extended attributes -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m (Gio.InputStream.InputStream)+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+rawFileToArchiveZ2Stream input fileInfo xattrs cancellable = liftIO $ do+    input' <- unsafeManagedPtrCastPtr input+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    maybeXattrs <- case xattrs of+        Nothing -> return nullPtr+        Just jXattrs -> do+            jXattrs' <- unsafeManagedPtrGetPtr jXattrs+            return jXattrs'+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_raw_file_to_archive_z2_stream input' fileInfo' maybeXattrs outInput maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        touchManagedPtr input+        touchManagedPtr fileInfo+        whenJust xattrs touchManagedPtr+        whenJust cancellable touchManagedPtr+        freeMem outInput+        return outInput''+     ) (do+        freeMem outInput+     )+++-- function ostree_parse_refspec+-- Args : [Arg {argCName = "refspec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A \"refspec\" string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_remote", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Return location for the remote name,\n   or %NULL if the refspec refs to a local ref", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_ref", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for the ref name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_parse_refspec" ostree_parse_refspec :: +    CString ->                              -- refspec : TBasicType TUTF8+    Ptr CString ->                          -- out_remote : TBasicType TUTF8+    Ptr CString ->                          -- out_ref : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Split a refspec like @gnome-ostree:gnome-ostree\/buildmaster@ or just+@gnome-ostree\/buildmaster@ into two parts. In the first case, /@outRemote@/+will be set to @gnome-ostree@, and /@outRef@/ to @gnome-ostree\/buildmaster@.+In the second case (a local ref), /@outRemote@/ will be 'Nothing', and /@outRef@/+will be @gnome-ostree\/buildmaster@. In both cases, 'True' will be returned.+-}+parseRefspec ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@refspec@/: A \"refspec\" string -}+    -> m ((Maybe T.Text, T.Text))+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+parseRefspec refspec = liftIO $ do+    refspec' <- textToCString refspec+    outRemote <- allocMem :: IO (Ptr CString)+    outRef <- allocMem :: IO (Ptr CString)+    onException (do+        _ <- propagateGError $ ostree_parse_refspec refspec' outRemote outRef+        outRemote' <- peek outRemote+        maybeOutRemote' <- convertIfNonNull outRemote' $ \outRemote'' -> do+            outRemote''' <- cstringToText outRemote''+            return outRemote'''+        freeMem outRemote'+        outRef' <- peek outRef+        outRef'' <- cstringToText outRef'+        freeMem outRef'+        freeMem refspec'+        freeMem outRemote+        freeMem outRef+        return (maybeOutRemote', outRef'')+     ) (do+        freeMem refspec'+        freeMem outRemote+        freeMem outRef+     )+++-- function ostree_object_type_to_string+-- Args : [Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeObjectType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_type_to_string" ostree_object_type_to_string :: +    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO CString++{- |+Serialize /@objtype@/ to a string; this is used for file extensions.+-}+objectTypeToString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OSTree.Enums.ObjectType+    {- ^ /@objtype@/: an 'GI.OSTree.Enums.ObjectType' -}+    -> m T.Text+objectTypeToString objtype = liftIO $ do+    let objtype' = (fromIntegral . fromEnum) objtype+    result <- ostree_object_type_to_string objtype'+    checkUnexpectedReturnNULL "objectTypeToString" result+    result' <- cstringToText result+    return result'+++-- function ostree_object_type_from_string+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A stringified version of #OstreeObjectType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "ObjectType"}))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_type_from_string" ostree_object_type_from_string :: +    CString ->                              -- str : TBasicType TUTF8+    IO CUInt++{- |+The reverse of 'GI.OSTree.Functions.objectTypeToString'.+-}+objectTypeFromString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@str@/: A stringified version of 'GI.OSTree.Enums.ObjectType' -}+    -> m OSTree.Enums.ObjectType+objectTypeFromString str = liftIO $ do+    str' <- textToCString str+    result <- ostree_object_type_from_string str'+    let result' = (toEnum . fromIntegral) result+    freeMem str'+    return result'+++-- function ostree_object_to_string+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_to_string" ostree_object_to_string :: +    CString ->                              -- checksum : TBasicType TUTF8+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO CString++{- |+/No description available in the introspection data./+-}+objectToString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: An ASCII checksum -}+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: Object type -}+    -> m T.Text+    {- ^ __Returns:__ A string containing both /@checksum@/ and a stringifed version of /@objtype@/ -}+objectToString checksum objtype = liftIO $ do+    checksum' <- textToCString checksum+    let objtype' = (fromIntegral . fromEnum) objtype+    result <- ostree_object_to_string checksum' objtype'+    checkUnexpectedReturnNULL "objectToString" result+    result' <- cstringToText result+    freeMem result+    freeMem checksum'+    return result'+++-- function ostree_object_name_serialize+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_name_serialize" ostree_object_name_serialize :: +    CString ->                              -- checksum : TBasicType TUTF8+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO (Ptr GVariant)++{- |+/No description available in the introspection data./+-}+objectNameSerialize ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: An ASCII checksum -}+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: An object type -}+    -> m GVariant+    {- ^ __Returns:__ A new floating 'GVariant' containing checksum string and objtype -}+objectNameSerialize checksum objtype = liftIO $ do+    checksum' <- textToCString checksum+    let objtype' = (fromIntegral . fromEnum) objtype+    result <- ostree_object_name_serialize checksum' objtype'+    checkUnexpectedReturnNULL "objectNameSerialize" result+    result' <- B.GVariant.newGVariantFromPtr result+    freeMem checksum'+    return result'+++-- function ostree_object_name_deserialize+-- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant of type (su)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_checksum", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Pointer into string memory of @variant with checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_name_deserialize" ostree_object_name_deserialize :: +    Ptr GVariant ->                         -- variant : TVariant+    Ptr CString ->                          -- out_checksum : TBasicType TUTF8+    Ptr CUInt ->                            -- out_objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO ()++{- |+Reverse 'GI.OSTree.Functions.objectNameSerialize'.  Note that /@outChecksum@/ is+only valid for the lifetime of /@variant@/, and must not be freed.+-}+objectNameDeserialize ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@variant@/: A 'GVariant' of type (su) -}+    -> m ((T.Text, OSTree.Enums.ObjectType))+objectNameDeserialize variant = liftIO $ do+    variant' <- unsafeManagedPtrGetPtr variant+    outChecksum <- allocMem :: IO (Ptr CString)+    outObjtype <- allocMem :: IO (Ptr CUInt)+    ostree_object_name_deserialize variant' outChecksum outObjtype+    outChecksum' <- peek outChecksum+    outChecksum'' <- cstringToText outChecksum'+    outObjtype' <- peek outObjtype+    let outObjtype'' = (toEnum . fromIntegral) outObjtype'+    touchManagedPtr variant+    freeMem outChecksum+    freeMem outObjtype+    return (outChecksum'', outObjtype'')+++-- function ostree_object_from_string+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_checksum", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Parsed checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Parsed object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_object_from_string" ostree_object_from_string :: +    CString ->                              -- str : TBasicType TUTF8+    Ptr CString ->                          -- out_checksum : TBasicType TUTF8+    Ptr CUInt ->                            -- out_objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO ()++{- |+Reverse 'GI.OSTree.Functions.objectToString'.+-}+objectFromString ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@str@/: An ASCII checksum -}+    -> m ((T.Text, OSTree.Enums.ObjectType))+objectFromString str = liftIO $ do+    str' <- textToCString str+    outChecksum <- allocMem :: IO (Ptr CString)+    outObjtype <- allocMem :: IO (Ptr CUInt)+    ostree_object_from_string str' outChecksum outObjtype+    outChecksum' <- peek outChecksum+    outChecksum'' <- cstringToText outChecksum'+    freeMem outChecksum'+    outObjtype' <- peek outObjtype+    let outObjtype'' = (toEnum . fromIntegral) outObjtype'+    freeMem str'+    freeMem outChecksum+    freeMem outObjtype+    return (outChecksum'', outObjtype'')+++-- function ostree_metadata_variant_type+-- Args : [Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "GLib", name = "VariantType"}))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_metadata_variant_type" ostree_metadata_variant_type :: +    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    IO (Ptr GLib.VariantType.VariantType)++{- |+/No description available in the introspection data./+-}+metadataVariantType ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    OSTree.Enums.ObjectType+    -> m GLib.VariantType.VariantType+metadataVariantType objtype = liftIO $ do+    let objtype' = (fromIntegral . fromEnum) objtype+    result <- ostree_metadata_variant_type objtype'+    checkUnexpectedReturnNULL "metadataVariantType" result+    result' <- (newBoxed GLib.VariantType.VariantType) result+    return result'+++-- function ostree_hash_object_name+-- Args : [Arg {argCName = "a", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant containing a serialized object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_hash_object_name" ostree_hash_object_name :: +    Ptr () ->                               -- a : TBasicType TPtr+    IO Word32++{- |+Use this function with 'GI.GLib.Structs.HashTable.HashTable' and 'GI.OSTree.Functions.objectNameSerialize'.+-}+hashObjectName ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Ptr ()+    {- ^ /@a@/: A 'GVariant' containing a serialized object -}+    -> m Word32+hashObjectName a = liftIO $ do+    result <- ostree_hash_object_name a+    return result+++-- function ostree_gpg_error_quark+-- Args : []+-- Lengths : []+-- returnType : Just (TBasicType TUInt32)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_gpg_error_quark" ostree_gpg_error_quark :: +    IO Word32++{- |+/No description available in the introspection data./+-}+gpgErrorQuark ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m Word32+gpgErrorQuark  = liftIO $ do+    result <- ostree_gpg_error_quark+    return result+++-- function ostree_diff_print+-- Args : [Arg {argCName = "a", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modified", argType = TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Modified files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Removed files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Added files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_diff_print" ostree_diff_print :: +    Ptr Gio.File.File ->                    -- a : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr Gio.File.File ->                    -- b : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr (GPtrArray (Ptr OSTree.DiffItem.DiffItem)) -> -- modified : TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- removed : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- added : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    IO ()++{- |+Print the contents of a diff to stdout.+-}+diffPrint ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.File.IsFile b) =>+    a+    {- ^ /@a@/: First directory path -}+    -> b+    {- ^ /@b@/: First directory path -}+    -> [OSTree.DiffItem.DiffItem]+    {- ^ /@modified@/: Modified files -}+    -> [Gio.File.File]+    {- ^ /@removed@/: Removed files -}+    -> [Gio.File.File]+    {- ^ /@added@/: Added files -}+    -> m ()+diffPrint a b modified removed added = liftIO $ do+    a' <- unsafeManagedPtrCastPtr a+    b' <- unsafeManagedPtrCastPtr b+    modified' <- mapM unsafeManagedPtrGetPtr modified+    modified'' <- packGPtrArray modified'+    removed' <- mapM unsafeManagedPtrCastPtr removed+    removed'' <- packGPtrArray removed'+    added' <- mapM unsafeManagedPtrCastPtr added+    added'' <- packGPtrArray added'+    ostree_diff_print a' b' modified'' removed'' added''+    touchManagedPtr a+    touchManagedPtr b+    mapM_ touchManagedPtr modified+    mapM_ touchManagedPtr removed+    mapM_ touchManagedPtr added+    unrefPtrArray modified''+    unrefPtrArray removed''+    unrefPtrArray added''+    return ()+++-- function ostree_diff_dirs_with_options+-- Args : [Arg {argCName = "flags", argType = TInterface (Name {namespace = "OSTree", name = "DiffFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modified", argType = TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Modified files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Removed files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Added files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "OSTree", name = "DiffDirsOptions"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Options", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_diff_dirs_with_options" ostree_diff_dirs_with_options :: +    CUInt ->                                -- flags : TInterface (Name {namespace = "OSTree", name = "DiffFlags"})+    Ptr Gio.File.File ->                    -- a : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr Gio.File.File ->                    -- b : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr (GPtrArray (Ptr OSTree.DiffItem.DiffItem)) -> -- modified : TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- removed : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- added : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    Ptr OSTree.DiffDirsOptions.DiffDirsOptions -> -- options : TInterface (Name {namespace = "OSTree", name = "DiffDirsOptions"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Compute the difference between directory /@a@/ and /@b@/ as 3 separate+sets of 'GI.OSTree.Structs.DiffItem.DiffItem' in /@modified@/, /@removed@/, and /@added@/.+-}+diffDirsWithOptions ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) =>+    [OSTree.Flags.DiffFlags]+    {- ^ /@flags@/: Flags -}+    -> a+    {- ^ /@a@/: First directory path, or 'Nothing' -}+    -> b+    {- ^ /@b@/: First directory path -}+    -> [OSTree.DiffItem.DiffItem]+    {- ^ /@modified@/: Modified files -}+    -> [Gio.File.File]+    {- ^ /@removed@/: Removed files -}+    -> [Gio.File.File]+    {- ^ /@added@/: Added files -}+    -> Maybe (OSTree.DiffDirsOptions.DiffDirsOptions)+    {- ^ /@options@/: Options -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+diffDirsWithOptions flags a b modified removed added options cancellable = liftIO $ do+    let flags' = gflagsToWord flags+    a' <- unsafeManagedPtrCastPtr a+    b' <- unsafeManagedPtrCastPtr b+    modified' <- mapM unsafeManagedPtrGetPtr modified+    modified'' <- packGPtrArray modified'+    removed' <- mapM unsafeManagedPtrCastPtr removed+    removed'' <- packGPtrArray removed'+    added' <- mapM unsafeManagedPtrCastPtr added+    added'' <- packGPtrArray added'+    maybeOptions <- case options of+        Nothing -> return nullPtr+        Just jOptions -> do+            jOptions' <- unsafeManagedPtrGetPtr jOptions+            return jOptions'+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_diff_dirs_with_options flags' a' b' modified'' removed'' added'' maybeOptions maybeCancellable+        touchManagedPtr a+        touchManagedPtr b+        mapM_ touchManagedPtr modified+        mapM_ touchManagedPtr removed+        mapM_ touchManagedPtr added+        whenJust options touchManagedPtr+        whenJust cancellable touchManagedPtr+        unrefPtrArray modified''+        unrefPtrArray removed''+        unrefPtrArray added''+        return ()+     ) (do+        unrefPtrArray modified''+        unrefPtrArray removed''+        unrefPtrArray added''+     )+++-- function ostree_diff_dirs+-- Args : [Arg {argCName = "flags", argType = TInterface (Name {namespace = "OSTree", name = "DiffFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "First directory path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modified", argType = TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Modified files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Removed files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TPtrArray (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Added files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_diff_dirs" ostree_diff_dirs :: +    CUInt ->                                -- flags : TInterface (Name {namespace = "OSTree", name = "DiffFlags"})+    Ptr Gio.File.File ->                    -- a : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr Gio.File.File ->                    -- b : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr (GPtrArray (Ptr OSTree.DiffItem.DiffItem)) -> -- modified : TPtrArray (TInterface (Name {namespace = "OSTree", name = "DiffItem"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- removed : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    Ptr (GPtrArray (Ptr Gio.File.File)) ->  -- added : TPtrArray (TInterface (Name {namespace = "Gio", name = "File"}))+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Compute the difference between directory /@a@/ and /@b@/ as 3 separate+sets of 'GI.OSTree.Structs.DiffItem.DiffItem' in /@modified@/, /@removed@/, and /@added@/.+-}+diffDirs ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.File.IsFile b, Gio.Cancellable.IsCancellable c) =>+    [OSTree.Flags.DiffFlags]+    {- ^ /@flags@/: Flags -}+    -> a+    {- ^ /@a@/: First directory path, or 'Nothing' -}+    -> b+    {- ^ /@b@/: First directory path -}+    -> [OSTree.DiffItem.DiffItem]+    {- ^ /@modified@/: Modified files -}+    -> [Gio.File.File]+    {- ^ /@removed@/: Removed files -}+    -> [Gio.File.File]+    {- ^ /@added@/: Added files -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+diffDirs flags a b modified removed added cancellable = liftIO $ do+    let flags' = gflagsToWord flags+    a' <- unsafeManagedPtrCastPtr a+    b' <- unsafeManagedPtrCastPtr b+    modified' <- mapM unsafeManagedPtrGetPtr modified+    modified'' <- packGPtrArray modified'+    removed' <- mapM unsafeManagedPtrCastPtr removed+    removed'' <- packGPtrArray removed'+    added' <- mapM unsafeManagedPtrCastPtr added+    added'' <- packGPtrArray added'+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_diff_dirs flags' a' b' modified'' removed'' added'' maybeCancellable+        touchManagedPtr a+        touchManagedPtr b+        mapM_ touchManagedPtr modified+        mapM_ touchManagedPtr removed+        mapM_ touchManagedPtr added+        whenJust cancellable touchManagedPtr+        unrefPtrArray modified''+        unrefPtrArray removed''+        unrefPtrArray added''+        return ()+     ) (do+        unrefPtrArray modified''+        unrefPtrArray removed''+        unrefPtrArray added''+     )+++-- function ostree_create_directory_metadata+-- Args : [Arg {argCName = "dir_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo containing directory information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xattrs", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "ostree_create_directory_metadata" ostree_create_directory_metadata :: +    Ptr Gio.FileInfo.FileInfo ->            -- dir_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr GVariant ->                         -- xattrs : TVariant+    IO (Ptr GVariant)++{- |+/No description available in the introspection data./+-}+createDirectoryMetadata ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.FileInfo.IsFileInfo a) =>+    a+    {- ^ /@dirInfo@/: a 'GI.Gio.Objects.FileInfo.FileInfo' containing directory information -}+    -> Maybe (GVariant)+    {- ^ /@xattrs@/: Optional extended attributes -}+    -> m GVariant+    {- ^ __Returns:__ A new 'GVariant' containing 'GI.OSTree.Enums.ObjectTypeDirMeta' -}+createDirectoryMetadata dirInfo xattrs = liftIO $ do+    dirInfo' <- unsafeManagedPtrCastPtr dirInfo+    maybeXattrs <- case xattrs of+        Nothing -> return nullPtr+        Just jXattrs -> do+            jXattrs' <- unsafeManagedPtrGetPtr jXattrs+            return jXattrs'+    result <- ostree_create_directory_metadata dirInfo' maybeXattrs+    checkUnexpectedReturnNULL "createDirectoryMetadata" result+    result' <- B.GVariant.wrapGVariantPtr result+    touchManagedPtr dirInfo+    whenJust xattrs touchManagedPtr+    return result'+++-- function ostree_content_stream_parse+-- Args : [Arg {argCName = "compressed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether or not the stream is zlib-compressed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "input_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Length of stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "If %TRUE, assume the content has been validated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The raw file content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Normal metadata", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_xattrs", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_content_stream_parse" ostree_content_stream_parse :: +    CInt ->                                 -- compressed : TBasicType TBoolean+    Ptr Gio.InputStream.InputStream ->      -- input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Word64 ->                               -- input_length : TBasicType TUInt64+    CInt ->                                 -- trusted : TBasicType TBoolean+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr (Ptr Gio.FileInfo.FileInfo) ->      -- out_file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr (Ptr GVariant) ->                   -- out_xattrs : TVariant+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+The reverse of 'GI.OSTree.Functions.rawFileToContentStream'; this function+converts an object content stream back into components.+-}+contentStreamParse ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.Cancellable.IsCancellable b) =>+    Bool+    {- ^ /@compressed@/: Whether or not the stream is zlib-compressed -}+    -> a+    {- ^ /@input@/: Object content stream -}+    -> Word64+    {- ^ /@inputLength@/: Length of stream -}+    -> Bool+    {- ^ /@trusted@/: If 'True', assume the content has been validated -}+    -> Maybe (b)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ((Gio.InputStream.InputStream, Gio.FileInfo.FileInfo, GVariant))+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+contentStreamParse compressed input inputLength trusted cancellable = liftIO $ do+    let compressed' = (fromIntegral . fromEnum) compressed+    input' <- unsafeManagedPtrCastPtr input+    let trusted' = (fromIntegral . fromEnum) trusted+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    outFileInfo <- allocMem :: IO (Ptr (Ptr Gio.FileInfo.FileInfo))+    outXattrs <- allocMem :: IO (Ptr (Ptr GVariant))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_content_stream_parse compressed' input' inputLength trusted' outInput outFileInfo outXattrs maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        outFileInfo' <- peek outFileInfo+        outFileInfo'' <- (wrapObject Gio.FileInfo.FileInfo) outFileInfo'+        outXattrs' <- peek outXattrs+        outXattrs'' <- B.GVariant.wrapGVariantPtr outXattrs'+        touchManagedPtr input+        whenJust cancellable touchManagedPtr+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+        return (outInput'', outFileInfo'', outXattrs'')+     ) (do+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+     )+++-- function ostree_content_file_parse_at+-- Args : [Arg {argCName = "compressed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether or not the stream is zlib-compressed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_dfd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Directory file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Subpath", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "If %TRUE, assume the content has been validated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The raw file content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Normal metadata", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_xattrs", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_content_file_parse_at" ostree_content_file_parse_at :: +    CInt ->                                 -- compressed : TBasicType TBoolean+    Int32 ->                                -- parent_dfd : TBasicType TInt+    CString ->                              -- path : TBasicType TUTF8+    CInt ->                                 -- trusted : TBasicType TBoolean+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr (Ptr Gio.FileInfo.FileInfo) ->      -- out_file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr (Ptr GVariant) ->                   -- out_xattrs : TVariant+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+A thin wrapper for 'GI.OSTree.Functions.contentStreamParse'; this function+converts an object content stream back into components.+-}+contentFileParseAt ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>+    Bool+    {- ^ /@compressed@/: Whether or not the stream is zlib-compressed -}+    -> Int32+    {- ^ /@parentDfd@/: Directory file descriptor -}+    -> T.Text+    {- ^ /@path@/: Subpath -}+    -> Bool+    {- ^ /@trusted@/: If 'True', assume the content has been validated -}+    -> Maybe (a)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ((Gio.InputStream.InputStream, Gio.FileInfo.FileInfo, GVariant))+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+contentFileParseAt compressed parentDfd path trusted cancellable = liftIO $ do+    let compressed' = (fromIntegral . fromEnum) compressed+    path' <- textToCString path+    let trusted' = (fromIntegral . fromEnum) trusted+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    outFileInfo <- allocMem :: IO (Ptr (Ptr Gio.FileInfo.FileInfo))+    outXattrs <- allocMem :: IO (Ptr (Ptr GVariant))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_content_file_parse_at compressed' parentDfd path' trusted' outInput outFileInfo outXattrs maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        outFileInfo' <- peek outFileInfo+        outFileInfo'' <- (wrapObject Gio.FileInfo.FileInfo) outFileInfo'+        outXattrs' <- peek outXattrs+        outXattrs'' <- B.GVariant.wrapGVariantPtr outXattrs'+        whenJust cancellable touchManagedPtr+        freeMem path'+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+        return (outInput'', outFileInfo'', outXattrs'')+     ) (do+        freeMem path'+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+     )+++-- function ostree_content_file_parse+-- Args : [Arg {argCName = "compressed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether or not the stream is zlib-compressed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_path", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path to file containing content", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "If %TRUE, assume the content has been validated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_input", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The raw file content stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Normal metadata", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_xattrs", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_content_file_parse" ostree_content_file_parse :: +    CInt ->                                 -- compressed : TBasicType TBoolean+    Ptr Gio.File.File ->                    -- content_path : TInterface (Name {namespace = "Gio", name = "File"})+    CInt ->                                 -- trusted : TBasicType TBoolean+    Ptr (Ptr Gio.InputStream.InputStream) -> -- out_input : TInterface (Name {namespace = "Gio", name = "InputStream"})+    Ptr (Ptr Gio.FileInfo.FileInfo) ->      -- out_file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr (Ptr GVariant) ->                   -- out_xattrs : TVariant+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+A thin wrapper for 'GI.OSTree.Functions.contentStreamParse'; this function+converts an object content stream back into components.+-}+contentFileParse ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.Cancellable.IsCancellable b) =>+    Bool+    {- ^ /@compressed@/: Whether or not the stream is zlib-compressed -}+    -> a+    {- ^ /@contentPath@/: Path to file containing content -}+    -> Bool+    {- ^ /@trusted@/: If 'True', assume the content has been validated -}+    -> Maybe (b)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ((Gio.InputStream.InputStream, Gio.FileInfo.FileInfo, GVariant))+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+contentFileParse compressed contentPath trusted cancellable = liftIO $ do+    let compressed' = (fromIntegral . fromEnum) compressed+    contentPath' <- unsafeManagedPtrCastPtr contentPath+    let trusted' = (fromIntegral . fromEnum) trusted+    outInput <- allocMem :: IO (Ptr (Ptr Gio.InputStream.InputStream))+    outFileInfo <- allocMem :: IO (Ptr (Ptr Gio.FileInfo.FileInfo))+    outXattrs <- allocMem :: IO (Ptr (Ptr GVariant))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_content_file_parse compressed' contentPath' trusted' outInput outFileInfo outXattrs maybeCancellable+        outInput' <- peek outInput+        outInput'' <- (wrapObject Gio.InputStream.InputStream) outInput'+        outFileInfo' <- peek outFileInfo+        outFileInfo'' <- (wrapObject Gio.FileInfo.FileInfo) outFileInfo'+        outXattrs' <- peek outXattrs+        outXattrs'' <- B.GVariant.wrapGVariantPtr outXattrs'+        touchManagedPtr contentPath+        whenJust cancellable touchManagedPtr+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+        return (outInput'', outFileInfo'', outXattrs'')+     ) (do+        freeMem outInput+        freeMem outFileInfo+        freeMem outXattrs+     )+++-- function ostree_commit_get_timestamp+-- Args : [Arg {argCName = "commit_variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_commit_get_timestamp" ostree_commit_get_timestamp :: +    Ptr GVariant ->                         -- commit_variant : TVariant+    IO Word64++{- |+/No description available in the introspection data./+-}+commitGetTimestamp ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    -> m Word64+commitGetTimestamp commitVariant = liftIO $ do+    commitVariant' <- unsafeManagedPtrGetPtr commitVariant+    result <- ostree_commit_get_timestamp commitVariant'+    touchManagedPtr commitVariant+    return result+++-- function ostree_commit_get_parent+-- Args : [Arg {argCName = "commit_variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Variant of type %OSTREE_OBJECT_TYPE_COMMIT", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_commit_get_parent" ostree_commit_get_parent :: +    Ptr GVariant ->                         -- commit_variant : TVariant+    IO CString++{- |+/No description available in the introspection data./+-}+commitGetParent ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@commitVariant@/: Variant of type 'GI.OSTree.Enums.ObjectTypeCommit' -}+    -> m T.Text+    {- ^ __Returns:__ Checksum of the parent commit of /@commitVariant@/, or 'Nothing'+if none -}+commitGetParent commitVariant = liftIO $ do+    commitVariant' <- unsafeManagedPtrGetPtr commitVariant+    result <- ostree_commit_get_parent commitVariant'+    checkUnexpectedReturnNULL "commitGetParent" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr commitVariant+    return result'+++-- function ostree_commit_get_content_checksum+-- Args : [Arg {argCName = "commit_variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A commit object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_commit_get_content_checksum" ostree_commit_get_content_checksum :: +    Ptr GVariant ->                         -- commit_variant : TVariant+    IO CString++{- |+There are use cases where one wants a checksum just of the content of a+commit. OSTree commits by default capture the current timestamp, and may have+additional metadata, which means that re-committing identical content+often results in a new checksum.++By comparing checksums of content, it\'s possible to easily distinguish+cases where nothing actually changed.++The content checksums is simply defined as @SHA256(root dirtree_checksum || root_dirmeta_checksum)@,+i.e. the SHA-256 of the root \"dirtree\" object\'s checksum concatenated with the+root \"dirmeta\" checksum (both in binary form, not hexadecimal).+-}+commitGetContentChecksum ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@commitVariant@/: A commit object -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ A SHA-256 hex string, or 'Nothing' if /@commitVariant@/ is not well-formed -}+commitGetContentChecksum commitVariant = liftIO $ do+    commitVariant' <- unsafeManagedPtrGetPtr commitVariant+    result <- ostree_commit_get_content_checksum commitVariant'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''+    touchManagedPtr commitVariant+    return maybeResult+++-- function ostree_cmp_checksum_bytes+-- Args : [Arg {argCName = "a", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A binary checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A binary checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TInt)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_cmp_checksum_bytes" ostree_cmp_checksum_bytes :: +    Word8 ->                                -- a : TBasicType TUInt8+    Word8 ->                                -- b : TBasicType TUInt8+    IO Int32++{- |+Compare two binary checksums, using @/memcmp()/@.+-}+cmpChecksumBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word8+    {- ^ /@a@/: A binary checksum -}+    -> Word8+    {- ^ /@b@/: A binary checksum -}+    -> m Int32+cmpChecksumBytes a b = liftIO $ do+    result <- ostree_cmp_checksum_bytes a b+    return result+++-- function ostree_cmd__private__+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "CmdPrivateVTable"}))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_cmd__private__" ostree_cmd__private__ :: +    IO (Ptr OSTree.CmdPrivateVTable.CmdPrivateVTable)++{- |+/No description available in the introspection data./+-}+cmd_Private__ ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m OSTree.CmdPrivateVTable.CmdPrivateVTable+cmd_Private__  = liftIO $ do+    result <- ostree_cmd__private__+    checkUnexpectedReturnNULL "cmd_Private__" result+    result' <- (newPtr OSTree.CmdPrivateVTable.CmdPrivateVTable) result+    return result'+++-- function ostree_checksum_to_bytes_v+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_to_bytes_v" ostree_checksum_to_bytes_v :: +    CString ->                              -- checksum : TBasicType TUTF8+    IO (Ptr GVariant)++{- |+/No description available in the introspection data./+-}+checksumToBytesV ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: An ASCII checksum -}+    -> m GVariant+    {- ^ __Returns:__ New 'GVariant' of type ay with length 32 -}+checksumToBytesV checksum = liftIO $ do+    checksum' <- textToCString checksum+    result <- ostree_checksum_to_bytes_v checksum'+    checkUnexpectedReturnNULL "checksumToBytesV" result+    result' <- B.GVariant.wrapGVariantPtr result+    freeMem checksum'+    return result'+++-- function ostree_checksum_to_bytes+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray False 32 (-1) (TBasicType TUInt8))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_to_bytes" ostree_checksum_to_bytes :: +    CString ->                              -- checksum : TBasicType TUTF8+    IO (Ptr Word8)++{- |+/No description available in the introspection data./+-}+checksumToBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: An ASCII checksum -}+    -> m ByteString+    {- ^ __Returns:__ Binary checksum from /@checksum@/ of length 32; free with 'GI.GLib.Functions.free'. -}+checksumToBytes checksum = liftIO $ do+    checksum' <- textToCString checksum+    result <- ostree_checksum_to_bytes checksum'+    checkUnexpectedReturnNULL "checksumToBytes" result+    result' <- (unpackByteStringWithLength 32) result+    freeMem result+    freeMem checksum'+    return result'+++-- function ostree_checksum_inplace_to_bytes+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a SHA256 string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Output buffer with at least 32 bytes of space", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_inplace_to_bytes" ostree_checksum_inplace_to_bytes :: +    CString ->                              -- checksum : TBasicType TUTF8+    Word8 ->                                -- buf : TBasicType TUInt8+    IO ()++{- |+Convert /@checksum@/ from a string to binary in-place, without+allocating memory.  Use this function in hot code paths.+-}+checksumInplaceToBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: a SHA256 string -}+    -> Word8+    {- ^ /@buf@/: Output buffer with at least 32 bytes of space -}+    -> m ()+checksumInplaceToBytes checksum buf = liftIO $ do+    checksum' <- textToCString checksum+    ostree_checksum_inplace_to_bytes checksum' buf+    freeMem checksum'+    return ()+++-- function ostree_checksum_from_bytes_v+-- Args : [Arg {argCName = "csum_v", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GVariant of type ay", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_from_bytes_v" ostree_checksum_from_bytes_v :: +    Ptr GVariant ->                         -- csum_v : TVariant+    IO CString++{- |+/No description available in the introspection data./+-}+checksumFromBytesV ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@csumV@/: 'GVariant' of type ay -}+    -> m T.Text+    {- ^ __Returns:__ String form of /@csumBytes@/ -}+checksumFromBytesV csumV = liftIO $ do+    csumV' <- unsafeManagedPtrGetPtr csumV+    result <- ostree_checksum_from_bytes_v csumV'+    checkUnexpectedReturnNULL "checksumFromBytesV" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr csumV+    return result'+++-- function ostree_checksum_from_bytes+-- Args : [Arg {argCName = "csum", argType = TCArray False 32 (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An binary checksum of length 32", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_from_bytes" ostree_checksum_from_bytes :: +    Ptr Word8 ->                            -- csum : TCArray False 32 (-1) (TBasicType TUInt8)+    IO CString++{- |+/No description available in the introspection data./+-}+checksumFromBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ByteString+    {- ^ /@csum@/: An binary checksum of length 32 -}+    -> m T.Text+    {- ^ __Returns:__ String form of /@csum@/ -}+checksumFromBytes csum = liftIO $ do+    csum' <- packByteString csum+    result <- ostree_checksum_from_bytes csum'+    checkUnexpectedReturnNULL "checksumFromBytes" result+    result' <- cstringToText result+    freeMem result+    freeMem csum'+    return result'+++-- function ostree_checksum_file_from_input+-- Args : [Arg {argCName = "file_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File information", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xattrs", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "in", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "File content, should be %NULL for symbolic links", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_csum", argType = TCArray False 32 (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for binary checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_checksum_file_from_input" ostree_checksum_file_from_input :: +    Ptr Gio.FileInfo.FileInfo ->            -- file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})+    Ptr GVariant ->                         -- xattrs : TVariant+    Ptr Gio.InputStream.InputStream ->      -- in : TInterface (Name {namespace = "Gio", name = "InputStream"})+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    Ptr (Ptr Word8) ->                      -- out_csum : TCArray False 32 (-1) (TBasicType TUInt8)+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Compute the OSTree checksum for a given input.+-}+checksumFileFromInput ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.FileInfo.IsFileInfo a, Gio.InputStream.IsInputStream b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@fileInfo@/: File information -}+    -> Maybe (GVariant)+    {- ^ /@xattrs@/: Optional extended attributes -}+    -> Maybe (b)+    {- ^ /@in@/: File content, should be 'Nothing' for symbolic links -}+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: Object type -}+    -> Maybe (c)+    {- ^ /@cancellable@/: Cancellable -}+    -> m (ByteString)+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+checksumFileFromInput fileInfo xattrs in_ objtype cancellable = liftIO $ do+    fileInfo' <- unsafeManagedPtrCastPtr fileInfo+    maybeXattrs <- case xattrs of+        Nothing -> return nullPtr+        Just jXattrs -> do+            jXattrs' <- unsafeManagedPtrGetPtr jXattrs+            return jXattrs'+    maybeIn_ <- case in_ of+        Nothing -> return nullPtr+        Just jIn_ -> do+            jIn_' <- unsafeManagedPtrCastPtr jIn_+            return jIn_'+    let objtype' = (fromIntegral . fromEnum) objtype+    outCsum <- allocMem :: IO (Ptr (Ptr Word8))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_checksum_file_from_input fileInfo' maybeXattrs maybeIn_ objtype' outCsum maybeCancellable+        outCsum' <- peek outCsum+        outCsum'' <- (unpackByteStringWithLength 32) outCsum'+        freeMem outCsum'+        touchManagedPtr fileInfo+        whenJust xattrs touchManagedPtr+        whenJust in_ touchManagedPtr+        whenJust cancellable touchManagedPtr+        freeMem outCsum+        return outCsum''+     ) (do+        freeMem outCsum+     )+++-- function ostree_checksum_file_at+-- Args : [Arg {argCName = "dfd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Directory file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Subpath\n@stbuf (allow-none): Optional stat buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "OSTree", name = "ChecksumFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags\n@out_checksum (out) (transfer full): Return location for hex checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_checksum_file_at" ostree_checksum_file_at :: +    Int32 ->                                -- dfd : TBasicType TInt+    CString ->                              -- path : TBasicType TUTF8+    Ptr () ->                               -- stbuf : TBasicType TPtr+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    CUInt ->                                -- flags : TInterface (Name {namespace = "OSTree", name = "ChecksumFlags"})+    CString ->                              -- out_checksum : TBasicType TUTF8+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Compute the OSTree checksum for a given file. This is an fd-relative version+of 'GI.OSTree.Functions.checksumFile' which also takes flags and fills in a caller+allocated buffer.++/Since: 2017.13/+-}+checksumFileAt ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>+    Int32+    {- ^ /@dfd@/: Directory file descriptor -}+    -> T.Text+    {- ^ /@path@/: Subpath+/@stbuf@/ (allow-none): Optional stat buffer -}+    -> Ptr ()+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: Object type -}+    -> [OSTree.Flags.ChecksumFlags]+    {- ^ /@flags@/: Flags+/@outChecksum@/ (out) (transfer full): Return location for hex checksum -}+    -> T.Text+    -> Maybe (a)+    {- ^ /@cancellable@/: Cancellable -}+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+checksumFileAt dfd path stbuf objtype flags outChecksum cancellable = liftIO $ do+    path' <- textToCString path+    let objtype' = (fromIntegral . fromEnum) objtype+    let flags' = gflagsToWord flags+    outChecksum' <- textToCString outChecksum+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_checksum_file_at dfd path' stbuf objtype' flags' outChecksum' maybeCancellable+        whenJust cancellable touchManagedPtr+        freeMem path'+        freeMem outChecksum'+        return ()+     ) (do+        freeMem path'+        freeMem outChecksum'+     )+++-- function ostree_checksum_file_async_finish+-- Args : [Arg {argCName = "f", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Async result", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_csum", argType = TCArray False 32 (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for binary checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_checksum_file_async_finish" ostree_checksum_file_async_finish :: +    Ptr Gio.File.File ->                    -- f : TInterface (Name {namespace = "Gio", name = "File"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr Word8) ->                      -- out_csum : TCArray False 32 (-1) (TBasicType TUInt8)+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Finish computing the OSTree checksum for a given file; see+'GI.OSTree.Functions.checksumFileAsync'.+-}+checksumFileAsyncFinish ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@f@/: File path -}+    -> b+    {- ^ /@result@/: Async result -}+    -> m (ByteString)+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+checksumFileAsyncFinish f result_ = liftIO $ do+    f' <- unsafeManagedPtrCastPtr f+    result_' <- unsafeManagedPtrCastPtr result_+    outCsum <- allocMem :: IO (Ptr (Ptr Word8))+    onException (do+        _ <- propagateGError $ ostree_checksum_file_async_finish f' result_' outCsum+        outCsum' <- peek outCsum+        outCsum'' <- (unpackByteStringWithLength 32) outCsum'+        freeMem outCsum'+        touchManagedPtr f+        touchManagedPtr result_+        freeMem outCsum+        return outCsum''+     ) (do+        freeMem outCsum+     )+++-- function ostree_checksum_file_async+-- Args : [Arg {argCName = "f", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Priority for operation, see %G_IO_PRIORITY_DEFAULT", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Invoked when operation is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Data for @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_file_async" ostree_checksum_file_async :: +    Ptr Gio.File.File ->                    -- f : TInterface (Name {namespace = "Gio", name = "File"})+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    Int32 ->                                -- io_priority : TBasicType TInt+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Asynchronously compute the OSTree checksum for a given file;+complete with 'GI.OSTree.Functions.checksumFileAsyncFinish'.+-}+checksumFileAsync ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@f@/: File path -}+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: Object type -}+    -> Int32+    {- ^ /@ioPriority@/: Priority for operation, see @/G_IO_PRIORITY_DEFAULT/@ -}+    -> Maybe (b)+    {- ^ /@cancellable@/: Cancellable -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: Invoked when operation is complete -}+    -> m ()+checksumFileAsync f objtype ioPriority cancellable callback = liftIO $ do+    f' <- unsafeManagedPtrCastPtr f+    let objtype' = (fromIntegral . fromEnum) objtype+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))+            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))+            poke ptrcallback jCallback'+            return jCallback'+    let userData = nullPtr+    ostree_checksum_file_async f' objtype' ioPriority maybeCancellable maybeCallback userData+    touchManagedPtr f+    whenJust cancellable touchManagedPtr+    return ()+++-- function ostree_checksum_file+-- Args : [Arg {argCName = "f", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "objtype", argType = TInterface (Name {namespace = "OSTree", name = "ObjectType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_csum", argType = TCArray False 32 (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for binary checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Cancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_checksum_file" ostree_checksum_file :: +    Ptr Gio.File.File ->                    -- f : TInterface (Name {namespace = "Gio", name = "File"})+    CUInt ->                                -- objtype : TInterface (Name {namespace = "OSTree", name = "ObjectType"})+    Ptr (Ptr Word8) ->                      -- out_csum : TCArray False 32 (-1) (TBasicType TUInt8)+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+Compute the OSTree checksum for a given file.+-}+checksumFile ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.Cancellable.IsCancellable b) =>+    a+    {- ^ /@f@/: File path -}+    -> OSTree.Enums.ObjectType+    {- ^ /@objtype@/: Object type -}+    -> Maybe (b)+    {- ^ /@cancellable@/: Cancellable -}+    -> m (ByteString)+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+checksumFile f objtype cancellable = liftIO $ do+    f' <- unsafeManagedPtrCastPtr f+    let objtype' = (fromIntegral . fromEnum) objtype+    outCsum <- allocMem :: IO (Ptr (Ptr Word8))+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_checksum_file f' objtype' outCsum maybeCancellable+        outCsum' <- peek outCsum+        outCsum'' <- (unpackByteStringWithLength 32) outCsum'+        freeMem outCsum'+        touchManagedPtr f+        whenJust cancellable touchManagedPtr+        freeMem outCsum+        return outCsum''+     ) (do+        freeMem outCsum+     )+++-- function ostree_checksum_bytes_peek_validate+-- Args : [Arg {argCName = "bytes", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GVariant of type ay", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray False 32 (-1) (TBasicType TUInt8))+-- throws : True+-- Skip return : False++foreign import ccall "ostree_checksum_bytes_peek_validate" ostree_checksum_bytes_peek_validate :: +    Ptr GVariant ->                         -- bytes : TVariant+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Word8)++{- |+Like 'GI.OSTree.Functions.checksumBytesPeek', but also throws /@error@/.+-}+checksumBytesPeekValidate ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@bytes@/: 'GVariant' of type ay -}+    -> m ByteString+    {- ^ __Returns:__ Binary checksum data /(Can throw 'Data.GI.Base.GError.GError')/ -}+checksumBytesPeekValidate bytes = liftIO $ do+    bytes' <- unsafeManagedPtrGetPtr bytes+    onException (do+        result <- propagateGError $ ostree_checksum_bytes_peek_validate bytes'+        checkUnexpectedReturnNULL "checksumBytesPeekValidate" result+        result' <- (unpackByteStringWithLength 32) result+        touchManagedPtr bytes+        return result'+     ) (do+        return ()+     )+++-- function ostree_checksum_bytes_peek+-- Args : [Arg {argCName = "bytes", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GVariant of type ay", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray False 32 (-1) (TBasicType TUInt8))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_bytes_peek" ostree_checksum_bytes_peek :: +    Ptr GVariant ->                         -- bytes : TVariant+    IO (Ptr Word8)++{- |+/No description available in the introspection data./+-}+checksumBytesPeek ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    GVariant+    {- ^ /@bytes@/: 'GVariant' of type ay -}+    -> m ByteString+    {- ^ __Returns:__ Binary checksum data in /@bytes@/; do not free.  If /@bytes@/ does not have the correct length, return 'Nothing'. -}+checksumBytesPeek bytes = liftIO $ do+    bytes' <- unsafeManagedPtrGetPtr bytes+    result <- ostree_checksum_bytes_peek bytes'+    checkUnexpectedReturnNULL "checksumBytesPeek" result+    result' <- (unpackByteStringWithLength 32) result+    touchManagedPtr bytes+    return result'+++-- function ostree_checksum_b64_to_bytes+-- Args : [Arg {argCName = "checksum", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An ASCII checksum", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TCArray False 32 (-1) (TBasicType TUInt8))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_b64_to_bytes" ostree_checksum_b64_to_bytes :: +    CString ->                              -- checksum : TBasicType TUTF8+    IO (Ptr Word8)++{- |+/No description available in the introspection data./+-}+checksumB64ToBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    T.Text+    {- ^ /@checksum@/: An ASCII checksum -}+    -> m ByteString+    {- ^ __Returns:__ Binary version of /@checksum@/. -}+checksumB64ToBytes checksum = liftIO $ do+    checksum' <- textToCString checksum+    result <- ostree_checksum_b64_to_bytes checksum'+    checkUnexpectedReturnNULL "checksumB64ToBytes" result+    result' <- (unpackByteStringWithLength 32) result+    freeMem result+    freeMem checksum'+    return result'+++-- function ostree_checksum_b64_from_bytes+-- Args : [Arg {argCName = "csum", argType = TCArray False 32 (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An binary checksum of length 32", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_checksum_b64_from_bytes" ostree_checksum_b64_from_bytes :: +    Ptr Word8 ->                            -- csum : TCArray False 32 (-1) (TBasicType TUInt8)+    IO CString++{- |+/No description available in the introspection data./+-}+checksumB64FromBytes ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    ByteString+    {- ^ /@csum@/: An binary checksum of length 32 -}+    -> m T.Text+    {- ^ __Returns:__ Modified base64 encoding of /@csum@/++The \"modified\" term refers to the fact that instead of \'\/\', the \'_\'+character is used. -}+checksumB64FromBytes csum = liftIO $ do+    csum' <- packByteString csum+    result <- ostree_checksum_b64_from_bytes csum'+    checkUnexpectedReturnNULL "checksumB64FromBytes" result+    result' <- cstringToText result+    freeMem result+    freeMem csum'+    return result'+++-- function ostree_check_version+-- Args : [Arg {argCName = "required_year", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Major/year required", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_release", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Release version required", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_check_version" ostree_check_version :: +    Word32 ->                               -- required_year : TBasicType TUInt+    Word32 ->                               -- required_release : TBasicType TUInt+    IO CInt++{- |+/No description available in the introspection data./+-}+checkVersion ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Word32+    {- ^ /@requiredYear@/: Major\/year required -}+    -> Word32+    {- ^ /@requiredRelease@/: Release version required -}+    -> m Bool+    {- ^ __Returns:__ 'True' if current libostree has at least the requested version, 'False' otherwise -}+checkVersion requiredYear requiredRelease = liftIO $ do+    result <- ostree_check_version requiredYear requiredRelease+    let result' = (/= 0) result+    return result'+++-- function ostree_break_hardlink+-- Args : [Arg {argCName = "dfd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Directory fd", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Path relative to @dfd", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skip_xattrs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Do not copy extended attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "ostree_break_hardlink" ostree_break_hardlink :: +    Int32 ->                                -- dfd : TBasicType TInt+    CString ->                              -- path : TBasicType TUTF8+    CInt ->                                 -- skip_xattrs : TBasicType TBoolean+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    Ptr (Ptr GError) ->                     -- error+    IO CInt++{- |+In many cases using libostree, a program may need to \"break\"+hardlinks by performing a copy.  For example, in order to+logically append to a file.++This function performs full copying, including e.g. extended+attributes and permissions of both regular files and symbolic links.++If the file is not hardlinked, this function does nothing and+returns successfully.++This function does not perform synchronization via @fsync()@ or+@fdatasync()@; the idea is this will commonly be done as part+of an @ostree_repo_commit_transaction()@, which itself takes+care of synchronization.++/Since: 2017.15/+-}+breakHardlink ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>+    Int32+    {- ^ /@dfd@/: Directory fd -}+    -> T.Text+    {- ^ /@path@/: Path relative to /@dfd@/ -}+    -> Bool+    {- ^ /@skipXattrs@/: Do not copy extended attributes -}+    -> Maybe (a)+    -> m ()+    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}+breakHardlink dfd path skipXattrs cancellable = liftIO $ do+    path' <- textToCString path+    let skipXattrs' = (fromIntegral . fromEnum) skipXattrs+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    onException (do+        _ <- propagateGError $ ostree_break_hardlink dfd path' skipXattrs' maybeCancellable+        whenJust cancellable touchManagedPtr+        freeMem path'+        return ()+     ) (do+        freeMem path'+     )+++

@@ -0,0 +1,41 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Interfaces+    (     module GI.OSTree.Interfaces.RepoFinder  ,+++    ) where++import GI.OSTree.Interfaces.RepoFinder++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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+++

@@ -0,0 +1,410 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Interfaces.RepoFinder+    ( ++-- * Exported types+    RepoFinder(..)                          ,+    noRepoFinder                            ,+    IsRepoFinder                            ,+    toRepoFinder                            ,+++ -- * Methods+-- ** resolveAllAsync #method:resolveAllAsync#++    repoFinderResolveAllAsync               ,+++-- ** resolveAllFinish #method:resolveAllFinish#++    repoFinderResolveAllFinish              ,+++-- ** resolveAsync #method:resolveAsync#++#if ENABLE_OVERLOADING+    RepoFinderResolveAsyncMethodInfo        ,+#endif+    repoFinderResolveAsync                  ,+++-- ** resolveFinish #method:resolveFinish#++#if ENABLE_OVERLOADING+    RepoFinderResolveFinishMethodInfo       ,+#endif+    repoFinderResolveFinish                 ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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 GI.GObject.Objects.Object as GObject.Object+import qualified GI.Gio.Callbacks as Gio.Callbacks+import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult+import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable+import {-# SOURCE #-} qualified GI.OSTree.Objects.Repo as OSTree.Repo+import {-# SOURCE #-} qualified GI.OSTree.Structs.CollectionRef as OSTree.CollectionRef+import {-# SOURCE #-} qualified GI.OSTree.Structs.RepoFinderResult as OSTree.RepoFinderResult++-- interface RepoFinder +-- | Memory-managed wrapper type.+newtype RepoFinder = RepoFinder (ManagedPtr RepoFinder)+-- | A convenience alias for `Nothing` :: `Maybe` `RepoFinder`.+noRepoFinder :: Maybe RepoFinder+noRepoFinder = Nothing++#if ENABLE_OVERLOADING+type instance O.SignalList RepoFinder = RepoFinderSignalList+type RepoFinderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++foreign import ccall "ostree_repo_finder_get_type"+    c_ostree_repo_finder_get_type :: IO GType++instance GObject RepoFinder where+    gobjectType = c_ostree_repo_finder_get_type+    ++-- | Type class for types which can be safely cast to `RepoFinder`, for instance with `toRepoFinder`.+class (GObject o, O.IsDescendantOf RepoFinder o) => IsRepoFinder o+instance (GObject o, O.IsDescendantOf RepoFinder o) => IsRepoFinder o++instance O.HasParentTypes RepoFinder+type instance O.ParentTypes RepoFinder = '[GObject.Object.Object]++-- | Cast to `RepoFinder`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toRepoFinder :: (MonadIO m, IsRepoFinder o) => o -> m RepoFinder+toRepoFinder = liftIO . unsafeCastTo RepoFinder++#if ENABLE_OVERLOADING+instance O.HasAttributeList RepoFinder+type instance O.AttributeList RepoFinder = RepoFinderAttributeList+type RepoFinderAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+type family ResolveRepoFinderMethod (t :: Symbol) (o :: *) :: * where+    ResolveRepoFinderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveRepoFinderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveRepoFinderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveRepoFinderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveRepoFinderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveRepoFinderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveRepoFinderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveRepoFinderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveRepoFinderMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveRepoFinderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveRepoFinderMethod "resolveAsync" o = RepoFinderResolveAsyncMethodInfo+    ResolveRepoFinderMethod "resolveFinish" o = RepoFinderResolveFinishMethodInfo+    ResolveRepoFinderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveRepoFinderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveRepoFinderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveRepoFinderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveRepoFinderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveRepoFinderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveRepoFinderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveRepoFinderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveRepoFinderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveRepoFinderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveRepoFinderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveRepoFinderMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveRepoFinderMethod t RepoFinder, O.MethodInfo info RepoFinder p) => OL.IsLabel t (RepoFinder -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++-- method RepoFinder::resolve_async+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "RepoFinder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeRepoFinder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refs", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "CollectionRef"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "non-empty array of collection\8211ref pairs to find remotes for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the local repository which the refs are being resolved for,\n   which provides configuration information and GPG keys", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "asynchronous completion callback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_repo_finder_resolve_async" ostree_repo_finder_resolve_async :: +    Ptr RepoFinder ->                       -- self : TInterface (Name {namespace = "OSTree", name = "RepoFinder"})+    Ptr (Ptr OSTree.CollectionRef.CollectionRef) -> -- refs : TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "CollectionRef"}))+    Ptr OSTree.Repo.Repo ->                 -- parent_repo : TInterface (Name {namespace = "OSTree", name = "Repo"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+Find reachable remote URIs which claim to provide any of the given /@refs@/. The+specific method for finding the remotes depends on the 'GI.OSTree.Interfaces.RepoFinder.RepoFinder'+implementation.++Any remote which is found and which claims to support any of the given /@refs@/+will be returned in the results. It is possible that a remote claims to+support a given ref, but turns out not to — it is not possible to verify this+until 'GI.OSTree.Objects.Repo.repoPullFromRemotesAsync' is called.++The returned results will be sorted with the most useful first — this is+typically the remote which claims to provide the most /@refs@/, at the lowest+latency.++Each result contains a mapping of /@refs@/ to the checksums of the commits+which the result provides. If the result provides the latest commit for a ref+across all of the results, the checksum will be set. Otherwise, if the+result provides an outdated commit, or doesn’t provide a given ref at all,+the checksum will not be set. Results which provide none of the requested+/@refs@/ may be listed with an empty refs map.++Pass the results to 'GI.OSTree.Objects.Repo.repoPullFromRemotesAsync' to pull the given+/@refs@/ from those remotes.++/Since: 2018.6/+-}+repoFinderResolveAsync ::+    (B.CallStack.HasCallStack, MonadIO m, IsRepoFinder a, OSTree.Repo.IsRepo b, Gio.Cancellable.IsCancellable c) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Interfaces.RepoFinder.RepoFinder' -}+    -> [OSTree.CollectionRef.CollectionRef]+    {- ^ /@refs@/: non-empty array of collection–ref pairs to find remotes for -}+    -> b+    {- ^ /@parentRepo@/: the local repository which the refs are being resolved for,+   which provides configuration information and GPG keys -}+    -> Maybe (c)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: asynchronous completion callback -}+    -> m ()+repoFinderResolveAsync self refs parentRepo cancellable callback = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    refs' <- mapM unsafeManagedPtrGetPtr refs+    refs'' <- packZeroTerminatedPtrArray refs'+    parentRepo' <- unsafeManagedPtrCastPtr parentRepo+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))+            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))+            poke ptrcallback jCallback'+            return jCallback'+    let userData = nullPtr+    ostree_repo_finder_resolve_async self' refs'' parentRepo' maybeCancellable maybeCallback userData+    touchManagedPtr self+    mapM_ touchManagedPtr refs+    touchManagedPtr parentRepo+    whenJust cancellable touchManagedPtr+    freeMem refs''+    return ()++#if ENABLE_OVERLOADING+data RepoFinderResolveAsyncMethodInfo+instance (signature ~ ([OSTree.CollectionRef.CollectionRef] -> b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsRepoFinder a, OSTree.Repo.IsRepo b, Gio.Cancellable.IsCancellable c) => O.MethodInfo RepoFinderResolveAsyncMethodInfo a signature where+    overloadedMethod _ = repoFinderResolveAsync++#endif++-- method RepoFinder::resolve_finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "RepoFinder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeRepoFinder", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GAsyncResult from the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TPtrArray (TInterface (Name {namespace = "OSTree", name = "RepoFinderResult"})))+-- throws : True+-- Skip return : False++foreign import ccall "ostree_repo_finder_resolve_finish" ostree_repo_finder_resolve_finish :: +    Ptr RepoFinder ->                       -- self : TInterface (Name {namespace = "OSTree", name = "RepoFinder"})+    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GPtrArray (Ptr OSTree.RepoFinderResult.RepoFinderResult)))++{- |+Get the results from a 'GI.OSTree.Interfaces.RepoFinder.repoFinderResolveAsync' operation.++/Since: 2018.6/+-}+repoFinderResolveFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsRepoFinder a, Gio.AsyncResult.IsAsyncResult b) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Interfaces.RepoFinder.RepoFinder' -}+    -> b+    {- ^ /@result@/: 'GI.Gio.Interfaces.AsyncResult.AsyncResult' from the callback -}+    -> m [OSTree.RepoFinderResult.RepoFinderResult]+    {- ^ __Returns:__ array of zero+   or more results /(Can throw 'Data.GI.Base.GError.GError')/ -}+repoFinderResolveFinish self result_ = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ ostree_repo_finder_resolve_finish self' result_'+        checkUnexpectedReturnNULL "repoFinderResolveFinish" result+        result' <- unpackGPtrArray result+        result'' <- mapM (wrapBoxed OSTree.RepoFinderResult.RepoFinderResult) result'+        unrefPtrArray result+        touchManagedPtr self+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+data RepoFinderResolveFinishMethodInfo+instance (signature ~ (b -> m [OSTree.RepoFinderResult.RepoFinderResult]), MonadIO m, IsRepoFinder a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo RepoFinderResolveFinishMethodInfo a signature where+    overloadedMethod _ = repoFinderResolveFinish++#endif++-- method RepoFinder::resolve_all_async+-- method type : MemberFunction+-- Args : [Arg {argCName = "finders", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "RepoFinder"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "non-empty array of #OstreeRepoFinders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refs", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "CollectionRef"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "non-empty array of collection\8211ref pairs to find remotes for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_repo", argType = TInterface (Name {namespace = "OSTree", name = "Repo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the local repository which the refs are being resolved for,\n   which provides configuration information and GPG keys", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "asynchronous completion callback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_repo_finder_resolve_all_async" ostree_repo_finder_resolve_all_async :: +    Ptr (Ptr RepoFinder) ->                 -- finders : TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "RepoFinder"}))+    Ptr (Ptr OSTree.CollectionRef.CollectionRef) -> -- refs : TCArray True (-1) (-1) (TInterface (Name {namespace = "OSTree", name = "CollectionRef"}))+    Ptr OSTree.Repo.Repo ->                 -- parent_repo : TInterface (Name {namespace = "OSTree", name = "Repo"})+    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})+    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO ()++{- |+A version of 'GI.OSTree.Interfaces.RepoFinder.repoFinderResolveAsync' which queries one or more+/@finders@/ in parallel and combines the results.++/Since: 2018.6/+-}+repoFinderResolveAllAsync ::+    (B.CallStack.HasCallStack, MonadIO m, OSTree.Repo.IsRepo a, Gio.Cancellable.IsCancellable b) =>+    [RepoFinder]+    {- ^ /@finders@/: non-empty array of @/OstreeRepoFinders/@ -}+    -> [OSTree.CollectionRef.CollectionRef]+    {- ^ /@refs@/: non-empty array of collection–ref pairs to find remotes for -}+    -> a+    {- ^ /@parentRepo@/: the local repository which the refs are being resolved for,+   which provides configuration information and GPG keys -}+    -> Maybe (b)+    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}+    -> Maybe (Gio.Callbacks.AsyncReadyCallback)+    {- ^ /@callback@/: asynchronous completion callback -}+    -> m ()+repoFinderResolveAllAsync finders refs parentRepo cancellable callback = liftIO $ do+    finders' <- mapM unsafeManagedPtrCastPtr finders+    finders'' <- packZeroTerminatedPtrArray finders'+    refs' <- mapM unsafeManagedPtrGetPtr refs+    refs'' <- packZeroTerminatedPtrArray refs'+    parentRepo' <- unsafeManagedPtrCastPtr parentRepo+    maybeCancellable <- case cancellable of+        Nothing -> return nullPtr+        Just jCancellable -> do+            jCancellable' <- unsafeManagedPtrCastPtr jCancellable+            return jCancellable'+    maybeCallback <- case callback of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jCallback -> do+            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))+            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))+            poke ptrcallback jCallback'+            return jCallback'+    let userData = nullPtr+    ostree_repo_finder_resolve_all_async finders'' refs'' parentRepo' maybeCancellable maybeCallback userData+    mapM_ touchManagedPtr finders+    mapM_ touchManagedPtr refs+    touchManagedPtr parentRepo+    whenJust cancellable touchManagedPtr+    freeMem finders''+    freeMem refs''+    return ()++#if ENABLE_OVERLOADING+#endif++-- method RepoFinder::resolve_all_finish+-- method type : MemberFunction+-- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GAsyncResult from the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TPtrArray (TInterface (Name {namespace = "OSTree", name = "RepoFinderResult"})))+-- throws : True+-- Skip return : False++foreign import ccall "ostree_repo_finder_resolve_all_finish" ostree_repo_finder_resolve_all_finish :: +    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr (GPtrArray (Ptr OSTree.RepoFinderResult.RepoFinderResult)))++{- |+Get the results from a 'GI.OSTree.Functions.repoFinderResolveAllAsync' operation.++/Since: 2018.6/+-}+repoFinderResolveAllFinish ::+    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>+    a+    {- ^ /@result@/: 'GI.Gio.Interfaces.AsyncResult.AsyncResult' from the callback -}+    -> m [OSTree.RepoFinderResult.RepoFinderResult]+    {- ^ __Returns:__ array of zero+   or more results /(Can throw 'Data.GI.Base.GError.GError')/ -}+repoFinderResolveAllFinish result_ = liftIO $ do+    result_' <- unsafeManagedPtrCastPtr result_+    onException (do+        result <- propagateGError $ ostree_repo_finder_resolve_all_finish result_'+        checkUnexpectedReturnNULL "repoFinderResolveAllFinish" result+        result' <- unpackGPtrArray result+        result'' <- mapM (wrapBoxed OSTree.RepoFinderResult.RepoFinderResult) result'+        unrefPtrArray result+        touchManagedPtr result_+        return result''+     ) (do+        return ()+     )++#if ENABLE_OVERLOADING+#endif++

@@ -0,0 +1,35 @@+#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))+module GI.OSTree.Interfaces.RepoFinder where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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++newtype RepoFinder = RepoFinder (ManagedPtr RepoFinder)+instance GObject RepoFinder where+class (GObject o, O.IsDescendantOf RepoFinder o) => IsRepoFinder o+instance (GObject o, O.IsDescendantOf RepoFinder o) => IsRepoFinder o+instance O.HasParentTypes RepoFinder+#if ENABLE_OVERLOADING+data RepoFinderResolveAsyncMethodInfo+#endif+#if ENABLE_OVERLOADING+data RepoFinderResolveFinishMethodInfo+#endif

@@ -0,0 +1,69 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Objects+    (     module GI.OSTree.Objects.AsyncProgress  ,+    module GI.OSTree.Objects.BootconfigParser,+    module GI.OSTree.Objects.ChecksumInputStream,+    module GI.OSTree.Objects.Deployment     ,+    module GI.OSTree.Objects.GpgVerifyResult,+    module GI.OSTree.Objects.MutableTree    ,+    module GI.OSTree.Objects.Repo           ,+    module GI.OSTree.Objects.RepoFile       ,+    module GI.OSTree.Objects.RepoFinderAvahi,+    module GI.OSTree.Objects.RepoFinderConfig,+    module GI.OSTree.Objects.RepoFinderMount,+    module GI.OSTree.Objects.RepoFinderOverride,+    module GI.OSTree.Objects.SePolicy       ,+    module GI.OSTree.Objects.Sysroot        ,+    module GI.OSTree.Objects.SysrootUpgrader,+++    ) where++import GI.OSTree.Objects.AsyncProgress+import GI.OSTree.Objects.BootconfigParser+import GI.OSTree.Objects.ChecksumInputStream+import GI.OSTree.Objects.Deployment+import GI.OSTree.Objects.GpgVerifyResult+import GI.OSTree.Objects.MutableTree+import GI.OSTree.Objects.Repo+import GI.OSTree.Objects.RepoFile+import GI.OSTree.Objects.RepoFinderAvahi+import GI.OSTree.Objects.RepoFinderConfig+import GI.OSTree.Objects.RepoFinderMount+import GI.OSTree.Objects.RepoFinderOverride+import GI.OSTree.Objects.SePolicy+import GI.OSTree.Objects.Sysroot+import GI.OSTree.Objects.SysrootUpgrader++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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+++

@@ -0,0 +1,733 @@+++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)++/No description available in the introspection data./+-}++#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \+       && !defined(__HADDOCK_VERSION__))++module GI.OSTree.Objects.AsyncProgress+    ( ++-- * Exported types+    AsyncProgress(..)                       ,+    IsAsyncProgress                         ,+    toAsyncProgress                         ,+    noAsyncProgress                         ,+++ -- * Methods+-- ** finish #method:finish#++#if ENABLE_OVERLOADING+    AsyncProgressFinishMethodInfo           ,+#endif+    asyncProgressFinish                     ,+++-- ** getStatus #method:getStatus#++#if ENABLE_OVERLOADING+    AsyncProgressGetStatusMethodInfo        ,+#endif+    asyncProgressGetStatus                  ,+++-- ** getUint #method:getUint#++#if ENABLE_OVERLOADING+    AsyncProgressGetUintMethodInfo          ,+#endif+    asyncProgressGetUint                    ,+++-- ** getUint64 #method:getUint64#++#if ENABLE_OVERLOADING+    AsyncProgressGetUint64MethodInfo        ,+#endif+    asyncProgressGetUint64                  ,+++-- ** getVariant #method:getVariant#++#if ENABLE_OVERLOADING+    AsyncProgressGetVariantMethodInfo       ,+#endif+    asyncProgressGetVariant                 ,+++-- ** new #method:new#++    asyncProgressNew                        ,+++-- ** newAndConnect #method:newAndConnect#++    asyncProgressNewAndConnect              ,+++-- ** setStatus #method:setStatus#++#if ENABLE_OVERLOADING+    AsyncProgressSetStatusMethodInfo        ,+#endif+    asyncProgressSetStatus                  ,+++-- ** setUint #method:setUint#++#if ENABLE_OVERLOADING+    AsyncProgressSetUintMethodInfo          ,+#endif+    asyncProgressSetUint                    ,+++-- ** setUint64 #method:setUint64#++#if ENABLE_OVERLOADING+    AsyncProgressSetUint64MethodInfo        ,+#endif+    asyncProgressSetUint64                  ,+++-- ** setVariant #method:setVariant#++#if ENABLE_OVERLOADING+    AsyncProgressSetVariantMethodInfo       ,+#endif+    asyncProgressSetVariant                 ,+++++ -- * Signals+-- ** changed #signal:changed#++    AsyncProgressChangedCallback            ,+#if ENABLE_OVERLOADING+    AsyncProgressChangedSignalInfo          ,+#endif+    C_AsyncProgressChangedCallback          ,+    afterAsyncProgressChanged               ,+    genClosure_AsyncProgressChanged         ,+    mk_AsyncProgressChangedCallback         ,+    noAsyncProgressChangedCallback          ,+    onAsyncProgressChanged                  ,+    wrap_AsyncProgressChangedCallback       ,+++++    ) where++import Data.GI.Base.ShortPrelude+import qualified Data.GI.Base.ShortPrelude as SP+import qualified Data.GI.Base.Overloading as O+import qualified Prelude as P++import qualified Data.GI.Base.Attributes as GI.Attributes+import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr+import qualified Data.GI.Base.GClosure as B.GClosure+import qualified Data.GI.Base.GError as B.GError+import qualified Data.GI.Base.GVariant as B.GVariant+import qualified Data.GI.Base.GValue as B.GValue+import qualified Data.GI.Base.GParamSpec as B.GParamSpec+import qualified Data.GI.Base.CallStack as B.CallStack+import qualified Data.GI.Base.Properties as B.Properties+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 GI.GObject.Objects.Object as GObject.Object++-- | Memory-managed wrapper type.+newtype AsyncProgress = AsyncProgress (ManagedPtr AsyncProgress)+foreign import ccall "ostree_async_progress_get_type"+    c_ostree_async_progress_get_type :: IO GType++instance GObject AsyncProgress where+    gobjectType = c_ostree_async_progress_get_type+    ++-- | Type class for types which can be safely cast to `AsyncProgress`, for instance with `toAsyncProgress`.+class (GObject o, O.IsDescendantOf AsyncProgress o) => IsAsyncProgress o+instance (GObject o, O.IsDescendantOf AsyncProgress o) => IsAsyncProgress o++instance O.HasParentTypes AsyncProgress+type instance O.ParentTypes AsyncProgress = '[GObject.Object.Object]++-- | Cast to `AsyncProgress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.+toAsyncProgress :: (MonadIO m, IsAsyncProgress o) => o -> m AsyncProgress+toAsyncProgress = liftIO . unsafeCastTo AsyncProgress++-- | A convenience alias for `Nothing` :: `Maybe` `AsyncProgress`.+noAsyncProgress :: Maybe AsyncProgress+noAsyncProgress = Nothing++#if ENABLE_OVERLOADING+type family ResolveAsyncProgressMethod (t :: Symbol) (o :: *) :: * where+    ResolveAsyncProgressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo+    ResolveAsyncProgressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo+    ResolveAsyncProgressMethod "finish" o = AsyncProgressFinishMethodInfo+    ResolveAsyncProgressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo+    ResolveAsyncProgressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo+    ResolveAsyncProgressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo+    ResolveAsyncProgressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo+    ResolveAsyncProgressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo+    ResolveAsyncProgressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo+    ResolveAsyncProgressMethod "ref" o = GObject.Object.ObjectRefMethodInfo+    ResolveAsyncProgressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo+    ResolveAsyncProgressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo+    ResolveAsyncProgressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo+    ResolveAsyncProgressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo+    ResolveAsyncProgressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo+    ResolveAsyncProgressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo+    ResolveAsyncProgressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo+    ResolveAsyncProgressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo+    ResolveAsyncProgressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo+    ResolveAsyncProgressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo+    ResolveAsyncProgressMethod "getStatus" o = AsyncProgressGetStatusMethodInfo+    ResolveAsyncProgressMethod "getUint" o = AsyncProgressGetUintMethodInfo+    ResolveAsyncProgressMethod "getUint64" o = AsyncProgressGetUint64MethodInfo+    ResolveAsyncProgressMethod "getVariant" o = AsyncProgressGetVariantMethodInfo+    ResolveAsyncProgressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo+    ResolveAsyncProgressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo+    ResolveAsyncProgressMethod "setStatus" o = AsyncProgressSetStatusMethodInfo+    ResolveAsyncProgressMethod "setUint" o = AsyncProgressSetUintMethodInfo+    ResolveAsyncProgressMethod "setUint64" o = AsyncProgressSetUint64MethodInfo+    ResolveAsyncProgressMethod "setVariant" o = AsyncProgressSetVariantMethodInfo+    ResolveAsyncProgressMethod l o = O.MethodResolutionFailed l o++instance (info ~ ResolveAsyncProgressMethod t AsyncProgress, O.MethodInfo info AsyncProgress p) => OL.IsLabel t (AsyncProgress -> p) where+#if MIN_VERSION_base(4,10,0)+    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#else+    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)+#endif++#endif++-- signal AsyncProgress::changed+{- |+Emitted when /@self@/ has been changed.+-}+type AsyncProgressChangedCallback =+    IO ()++-- | A convenience synonym for @`Nothing` :: `Maybe` `AsyncProgressChangedCallback`@.+noAsyncProgressChangedCallback :: Maybe AsyncProgressChangedCallback+noAsyncProgressChangedCallback = Nothing++-- | Type for the callback on the (unwrapped) C side.+type C_AsyncProgressChangedCallback =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++-- | Generate a function pointer callable from C code, from a `C_AsyncProgressChangedCallback`.+foreign import ccall "wrapper"+    mk_AsyncProgressChangedCallback :: C_AsyncProgressChangedCallback -> IO (FunPtr C_AsyncProgressChangedCallback)++-- | Wrap the callback into a `GClosure`.+genClosure_AsyncProgressChanged :: MonadIO m => AsyncProgressChangedCallback -> m (GClosure C_AsyncProgressChangedCallback)+genClosure_AsyncProgressChanged cb = liftIO $ do+    let cb' = wrap_AsyncProgressChangedCallback cb+    mk_AsyncProgressChangedCallback cb' >>= B.GClosure.newGClosure+++-- | Wrap a `AsyncProgressChangedCallback` into a `C_AsyncProgressChangedCallback`.+wrap_AsyncProgressChangedCallback ::+    AsyncProgressChangedCallback ->+    C_AsyncProgressChangedCallback+wrap_AsyncProgressChangedCallback _cb _ _ = do+    _cb +++{- |+Connect a signal handler for the “@changed@” signal, to be run before the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.on' asyncProgress #changed callback+@+-}+onAsyncProgressChanged :: (IsAsyncProgress a, MonadIO m) => a -> AsyncProgressChangedCallback -> m SignalHandlerId+onAsyncProgressChanged obj cb = liftIO $ do+    let cb' = wrap_AsyncProgressChangedCallback cb+    cb'' <- mk_AsyncProgressChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectBefore++{- |+Connect a signal handler for the “@changed@” signal, to be run after the default handler.+When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to++@+'Data.GI.Base.Signals.after' asyncProgress #changed callback+@+-}+afterAsyncProgressChanged :: (IsAsyncProgress a, MonadIO m) => a -> AsyncProgressChangedCallback -> m SignalHandlerId+afterAsyncProgressChanged obj cb = liftIO $ do+    let cb' = wrap_AsyncProgressChangedCallback cb+    cb'' <- mk_AsyncProgressChangedCallback cb'+    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter+++#if ENABLE_OVERLOADING+instance O.HasAttributeList AsyncProgress+type instance O.AttributeList AsyncProgress = AsyncProgressAttributeList+type AsyncProgressAttributeList = ('[ ] :: [(Symbol, *)])+#endif++#if ENABLE_OVERLOADING+#endif++#if ENABLE_OVERLOADING+data AsyncProgressChangedSignalInfo+instance SignalInfo AsyncProgressChangedSignalInfo where+    type HaskellCallbackType AsyncProgressChangedSignalInfo = AsyncProgressChangedCallback+    connectSignal _ obj cb connectMode = do+        let cb' = wrap_AsyncProgressChangedCallback cb+        cb'' <- mk_AsyncProgressChangedCallback cb'+        connectSignalFunPtr obj "changed" cb'' connectMode++type instance O.SignalList AsyncProgress = AsyncProgressSignalList+type AsyncProgressSignalList = ('[ '("changed", AsyncProgressChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])++#endif++-- method AsyncProgress::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_new" ostree_async_progress_new :: +    IO (Ptr AsyncProgress)++{- |+/No description available in the introspection data./+-}+asyncProgressNew ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    m AsyncProgress+    {- ^ __Returns:__ A new progress object -}+asyncProgressNew  = liftIO $ do+    result <- ostree_async_progress_new+    checkUnexpectedReturnNULL "asyncProgressNew" result+    result' <- (wrapObject AsyncProgress) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method AsyncProgress::new_and_connect+-- method type : Constructor+-- Args : [Arg {argCName = "changed", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}))+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_new_and_connect" ostree_async_progress_new_and_connect :: +    Ptr () ->                               -- changed : TBasicType TPtr+    Ptr () ->                               -- user_data : TBasicType TPtr+    IO (Ptr AsyncProgress)++{- |+/No description available in the introspection data./+-}+asyncProgressNewAndConnect ::+    (B.CallStack.HasCallStack, MonadIO m) =>+    Ptr ()+    -> Ptr ()+    -> m AsyncProgress+asyncProgressNewAndConnect changed userData = liftIO $ do+    result <- ostree_async_progress_new_and_connect changed userData+    checkUnexpectedReturnNULL "asyncProgressNewAndConnect" result+    result' <- (wrapObject AsyncProgress) result+    return result'++#if ENABLE_OVERLOADING+#endif++-- method AsyncProgress::finish+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Self", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_finish" ostree_async_progress_finish :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    IO ()++{- |+Process any pending signals, ensuring the main context is cleared+of sources used by this object.  Also ensures that no further+events will be queued.+-}+asyncProgressFinish ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    {- ^ /@self@/: Self -}+    -> m ()+asyncProgressFinish self = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    ostree_async_progress_finish self'+    touchManagedPtr self+    return ()++#if ENABLE_OVERLOADING+data AsyncProgressFinishMethodInfo+instance (signature ~ (m ()), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressFinishMethodInfo a signature where+    overloadedMethod _ = asyncProgressFinish++#endif++-- method AsyncProgress::get_status+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeAsyncProgress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_get_status" ostree_async_progress_get_status :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    IO CString++{- |+Get the human-readable status string from the 'GI.OSTree.Objects.AsyncProgress.AsyncProgress'. This+operation is thread-safe. The retuned value may be 'Nothing' if no status is+set.++This is a convenience function to get the well-known @status@ key.++/Since: 2017.6/+-}+asyncProgressGetStatus ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' -}+    -> m (Maybe T.Text)+    {- ^ __Returns:__ the current status, or 'Nothing' if none is set -}+asyncProgressGetStatus self = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    result <- ostree_async_progress_get_status self'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''+    touchManagedPtr self+    return maybeResult++#if ENABLE_OVERLOADING+data AsyncProgressGetStatusMethodInfo+instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressGetStatusMethodInfo a signature where+    overloadedMethod _ = asyncProgressGetStatus++#endif++-- method AsyncProgress::get_uint+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_get_uint" ostree_async_progress_get_uint :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    IO Word32++{- |+/No description available in the introspection data./+-}+asyncProgressGetUint ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    -> T.Text+    -> m Word32+asyncProgressGetUint self key = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    result <- ostree_async_progress_get_uint self' key'+    touchManagedPtr self+    freeMem key'+    return result++#if ENABLE_OVERLOADING+data AsyncProgressGetUintMethodInfo+instance (signature ~ (T.Text -> m Word32), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressGetUintMethodInfo a signature where+    overloadedMethod _ = asyncProgressGetUint++#endif++-- method AsyncProgress::get_uint64+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TBasicType TUInt64)+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_get_uint64" ostree_async_progress_get_uint64 :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    IO Word64++{- |+/No description available in the introspection data./+-}+asyncProgressGetUint64 ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    -> T.Text+    -> m Word64+asyncProgressGetUint64 self key = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    result <- ostree_async_progress_get_uint64 self' key'+    touchManagedPtr self+    freeMem key'+    return result++#if ENABLE_OVERLOADING+data AsyncProgressGetUint64MethodInfo+instance (signature ~ (T.Text -> m Word64), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressGetUint64MethodInfo a signature where+    overloadedMethod _ = asyncProgressGetUint64++#endif++-- method AsyncProgress::get_variant+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeAsyncProgress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a key to look up", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just TVariant+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_get_variant" ostree_async_progress_get_variant :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    IO (Ptr GVariant)++{- |+Look up a key in the 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' and return the 'GVariant' associated+with it. The lookup is thread-safe.++/Since: 2017.6/+-}+asyncProgressGetVariant ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' -}+    -> T.Text+    {- ^ /@key@/: a key to look up -}+    -> m (Maybe GVariant)+    {- ^ __Returns:__ value for the given /@key@/, or 'Nothing' if+   it was not set -}+asyncProgressGetVariant self key = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    result <- ostree_async_progress_get_variant self' key'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- B.GVariant.wrapGVariantPtr result'+        return result''+    touchManagedPtr self+    freeMem key'+    return maybeResult++#if ENABLE_OVERLOADING+data AsyncProgressGetVariantMethodInfo+instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressGetVariantMethodInfo a signature where+    overloadedMethod _ = asyncProgressGetVariant++#endif++-- method AsyncProgress::set_status+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeAsyncProgress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "new status string, or %NULL to clear the status", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_set_status" ostree_async_progress_set_status :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- status : TBasicType TUTF8+    IO ()++{- |+Set the human-readable status string for the 'GI.OSTree.Objects.AsyncProgress.AsyncProgress'. This+operation is thread-safe. 'Nothing' may be passed to clear the status.++This is a convenience function to set the well-known @status@ key.++/Since: 2017.6/+-}+asyncProgressSetStatus ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' -}+    -> Maybe (T.Text)+    {- ^ /@status@/: new status string, or 'Nothing' to clear the status -}+    -> m ()+asyncProgressSetStatus self status = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    maybeStatus <- case status of+        Nothing -> return nullPtr+        Just jStatus -> do+            jStatus' <- textToCString jStatus+            return jStatus'+    ostree_async_progress_set_status self' maybeStatus+    touchManagedPtr self+    freeMem maybeStatus+    return ()++#if ENABLE_OVERLOADING+data AsyncProgressSetStatusMethodInfo+instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressSetStatusMethodInfo a signature where+    overloadedMethod _ = asyncProgressSetStatus++#endif++-- method AsyncProgress::set_uint+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_set_uint" ostree_async_progress_set_uint :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    Word32 ->                               -- value : TBasicType TUInt+    IO ()++{- |+/No description available in the introspection data./+-}+asyncProgressSetUint ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    -> T.Text+    -> Word32+    -> m ()+asyncProgressSetUint self key value = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    ostree_async_progress_set_uint self' key' value+    touchManagedPtr self+    freeMem key'+    return ()++#if ENABLE_OVERLOADING+data AsyncProgressSetUintMethodInfo+instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressSetUintMethodInfo a signature where+    overloadedMethod _ = asyncProgressSetUint++#endif++-- method AsyncProgress::set_uint64+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_set_uint64" ostree_async_progress_set_uint64 :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    Word64 ->                               -- value : TBasicType TUInt64+    IO ()++{- |+/No description available in the introspection data./+-}+asyncProgressSetUint64 ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    -> T.Text+    -> Word64+    -> m ()+asyncProgressSetUint64 self key value = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    ostree_async_progress_set_uint64 self' key' value+    touchManagedPtr self+    freeMem key'+    return ()++#if ENABLE_OVERLOADING+data AsyncProgressSetUint64MethodInfo+instance (signature ~ (T.Text -> Word64 -> m ()), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressSetUint64MethodInfo a signature where+    overloadedMethod _ = asyncProgressSetUint64++#endif++-- method AsyncProgress::set_variant+-- method type : OrdinaryMethod+-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "OSTree", name = "AsyncProgress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #OstreeAsyncProgress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to assign to @key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Nothing+-- throws : False+-- Skip return : False++foreign import ccall "ostree_async_progress_set_variant" ostree_async_progress_set_variant :: +    Ptr AsyncProgress ->                    -- self : TInterface (Name {namespace = "OSTree", name = "AsyncProgress"})+    CString ->                              -- key : TBasicType TUTF8+    Ptr GVariant ->                         -- value : TVariant+    IO ()++{- |+Assign a new /@value@/ to the given /@key@/, replacing any existing value. The+operation is thread-safe. /@value@/ may be a floating reference;+'GI.GLib.Structs.Variant.variantRefSink' will be called on it.++Any watchers of the 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' will be notified of the change if+/@value@/ differs from the existing value for /@key@/.++/Since: 2017.6/+-}+asyncProgressSetVariant ::+    (B.CallStack.HasCallStack, MonadIO m, IsAsyncProgress a) =>+    a+    {- ^ /@self@/: an 'GI.OSTree.Objects.AsyncProgress.AsyncProgress' -}+    -> T.Text+    {- ^ /@key@/: a key to set -}+    -> GVariant+    {- ^ /@value@/: the value to assign to /@key@/ -}+    -> m ()+asyncProgressSetVariant self key value = liftIO $ do+    self' <- unsafeManagedPtrCastPtr self+    key' <- textToCString key+    value' <- unsafeManagedPtrGetPtr value+    ostree_async_progress_set_variant self' key' value'+    touchManagedPtr self+    touchManagedPtr value+    freeMem key'+    return ()++#if ENABLE_OVERLOADING+data AsyncProgressSetVariantMethodInfo+instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, IsAsyncProgress a) => O.MethodInfo AsyncProgressSetVariantMethodInfo a signature where+    overloadedMethod _ = asyncProgressSetVariant++#endif++